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El ordenador 

útil 



Programando 

aplicaciones 



ras dos tomos de- 
dicados funda- 
mentalmente a la 
explicación de 
conceptos, en este 
tercero nos ocuparemos básicamente de 
la práctica del BASIC. 

En anteriores capítulos prácticos se 
presentaron ejemplos en los que se ha- 
cía uso de los comandos BASIC para fi- 
nes fundamentalmente lúdicos, En éste 
utilizaremos la potencia del BASIC para 
resolver algunos problemas cotidianos. 

Un ordenador es una máquina de cal- 
cular. Sus posibilidades, sin embargo, 
superan a las de cualquier calculadora. 
Con un ordenador se pueden realizar ta- 
reas mucho más complejas y con mayor 
facilidad. Y es para eso, precisamente, 
para lo que está pensado el ordenador. 

A lo largo del presente capítulo se 
construirá una base de datos. Esta no 
será ni mucho menos tan potente como 
una base de datos comercial; sin embar- 
go, la podremos diseñar a nuestra me- 
dida y, desde luego, resultará bastante 
más económica. 

Una base de datos 

En principio, una base de datos con- 
siste en un conjunto organizado y más 
o menos voluminoso de datos. Estos da- 
mantienen ciertas relaciones entre 
sí. Un ejemplo de base datos lo consti- 
tuye el propio listín telefónico. En él 
:oexisten dos tipos de datos que se re- 
lacionan mutuamente: el nombre del 
abonado y el número de su teléfono. En 
general, una base de datos* puede dis- 
poner de más tipos de datos, denomina- 
dos normalmente «campos». Cada grupo 
de datos diferentes recibe el nombre de 
- _ 'i cha» o «registro». De esta forma, un 
stín telefónico puede constar, por 
ejemplo, de 100 registros de dos cam- 
pos. 

El método más adecuado para guar- 
dar esta información pasa por el uso de 
«array» o matriz. Se puede definir un 
;rray de dos dimensiones, 100*2, ase- 
; orándose así el espacio suficiente para 
os datos. Al tratarse de datos numérí- 
:is y alfanuméricos no se puede em- 
:iear una matriz numérica. Lo más con- 
teniente, pues, es crear la matriz como 
un array de caracteres, transformando 




El ordenador útil ha de colaborar con 
el usuario en sus labores cotidianas . 



los datos numéricos en alfanuméricos 
(función $TR$), Si más adelante fuera 
necesario realizar cálculos con los nú- 
meros almacenados, éstos serían recon- 
vertidos previamente con la función 
VAL. 

En una base de datos son necesarias 
al menos tres operaciones: creación, ac- 
tualización y visual ización de los datos. 
La primera es obvia, sin crearla no exis- 
tiría tal base de datos. Una vez creada 
será necesario actualizarla de tiempo en 
tiempo; esto es, modificar datos o intro- 
ducir otros nuevos. Y todo ello no sirve 
de nada si no es posible consultar esos 
datos, visualizándolos en pantalla o vol- 
cándolos en la impresora. Acometere- 
mos pues estos tres procesos viendo las 
distintas posibilidades que ofrece el BA- 
SIC para su programación. 

La creación 

A la hora de crear ia base de datos es 
cuando se ha de dimensíonar la matriz 
correspondiente. En este punto los or- 
denadores difieren unos de otros, de- 
pendiendo de la forma en la que tratan 
los datos de tipo cadena de caracteres. 
Los ordenadores Sinclair y Atari alma- 
cenan las cadenas en forma de arrays, 
conteniendo cada elemento un sólo ca- 
rácter, De esta forma, si A$ contiene la 
cadena J 'JAUME" el valor de A$(3) será 
"U'L 

Esto no ocurre en los restantes equi- 
pos. Lo normal es almacenar una cade- 
na entera como elemento del array. Si 
en el BASIC de Sinclair y Atari la orden 



DIM A$(5) reserva espacio para cinco 
carateres, en los demás permitirá alma- 
cenar cinco cadenas de caracteres de 
longitud ilimitada. 

Atendiendo a estas diferencias, el di- 
mensionamientode la matriz puede pre- 
sentar dos aspectos. Para el caso de una 
matriz de 100*2, en la que cada cadena 
ha de tener un máximo de 20 caracte- 
res, sus formulaciones serían las si- 
guientes, En los equipos Atari y Sinclair: 

10 DIM A$[1QO,2,20| 

Mientras que en los restantes dialec- 
tos BASIC: 

10 DIM A$(100,2) 

A lo largo del presente capítulo nos 
acogeremos a la segunda formulación, 
más genérica. No obstante, si su orde- 
nador pertenece a los nombrados, no se 
olvide de realizar las modificaciones in- 
dicadas. Como tamaño general de la 
base de datos elegiremos 100 registros 
de 10 campos cada uno. Con ese presu- 
puesto, la línea de dimensionado se re- 
duce a: 

10 DIM A$[1 00,10) 

En ella se indica que el primer subín- 
dice corresponde a los registros y el se- 
gundo a los campos. Una vez dimensio- 
nada la matriz, hay que proceder a «re- 
llenarla» con datos. Estos se han de in- 
troducir por medio del teclado, de ahí 
que sea conveniente utilizar el coman- 
do INPUT. Para recorrer los campos de 
todos los registros se hace uso de un do- 
ble bucle. 




El manejo y organización 
de los datos es una 
de las tareas en las que 
el ordenador se 
manifiesta como un 
consumado especialista . 
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^ 300 FOR REG=1 TO 100 
'm FOR CARITO 10 
T020 INPUT B$ 

“030 IET A$(REG,CAM)-B$ 
1040 NEXTCAM 
f 050 NEXT REG 



Este irá pidiendo los datos uno a uno 
-esta completar toda la tabla. Tal y 
romo está codificada esta rutina puede 
llegar a aburrir el ver 100*10=1000 ve- 
res el signo "?" mientras introducimos 
os datos. Lo más adecuado será visua- 
zar un indicador del elemento que se 
está introduciendo. Así, al mismo tiem- 
po tendremos constancia directa del 
-ato que introducimos y donde lo hace- 
mos. Para lograrlo basta con introducir 
.na linea intermedia en el programa: 

rü15 PfiINT "REGISTRO: ';REG;' 'CAMPO: ";CAM 

De esta forma, la ejecución de esta 
s' mera rutina daría el siguiente resul- 
-. 3 ÚQ en pantalla: 



3 JN<CR> 

-EGISTRO: 1 CAMPO: 1 
'MANUEL 

-EGISTR0:1 CAMPO: 2 



^2340700 



-EG1STR0: 100 CAMPO: 10 

'FIN 



En la mayoría de los casos no se hará 
_sc de todos los registros y campos. Por 
: tanto, no será imprescindible relle- 
narlos todos. Para evitar la molestia de 
pasar por todos los campos de cada re- 
piTo es preciso introducir nuevas lí- 
neas. En ellas se ha de inspeccionar el 
dato introducido y, si se trata de una or- 
den de salto de registro o de fin de ta- 
rea, realizar dichas acciones. 

Para indicar el final de la entrada de 
datos hemos de teclear la orden al efec- 




Nuestra base de datos servirá para 
guardar información de forma 
organizada y accesible. 



to. Esta consistirá en un conjunto de ca- 
racteres plenamente diferenciados de 
un dato ordinario. Por ejemplo, puede 
emplearse un carácter especial, poco 
usual, que sea identificado como indica- 
tivo de un comando. Cualquier carácter 
especial {#, $, %, *, £, etc.) puede ser- 
vir al efecto. En nuestro caso, utilizare- 
mos el carácter si usted no dispo- 
ne de este carácter o no resulta de su 
agrado, puede utilizar otro, siempre y 
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Para seleccionar la operación a 
realizar en la base de datos se hace 
uso de un menú de opciones 
ejecutables. 



cuando lo tenga en cuenta en las si- 
guientes líneas de programa. 

En definitiva, podemos definir el co- 
mando de "fin de entrada de datos" 
como "@F r {F de fin), y el de salto de re- 
gistro como FT (R de registro). 

Ahora hay que lograr que el progra- 
ma contemple estas posibilidades. El 
salto de registro implica pasar al primer 
campo del siguiente registro, lo que sig- 
nifica hacer CAM=1 y REG-REG+1. Sin 
embargo, como existe una línea NEXT 
CAM y otra NEXT REG, habrá que poner 
los valores anteriores (los comandos 
NEXT incrementan la variable a la que 
hacen referencia). Por consiguiente, los 
valores adecuados son CAM=10 y REG 
tal como estaba. Esto habrá que reali- 
zarlo cuando se haya tecleado e! co- 
mando apropiado (@ R), La línea en 
cuestión adoptará el aspecto siguiente: 

IF R 'THEN LEÍ CAMBIO 

Esta ha de colocarse después de la 
lectura de B$ y antes de trasladar dicho 
valor al array (línea 1030), 

No interesa que el «comando» se vea 
reflejado en la base de datos como un 
dato más; por ello, en tal caso, se ha de 
saltar la línea 1030. Asi pues la correc- 
ta programación del citado «comando» 
coincidirá con: 

1025 IF R" THEN LETCAM=1Ü:GQT0 1040 

Por lo que respecta al final de la en- 
trada de datos, el método varía muy 
poco. La línea correspondiente difiere 
tan sólo en tos nuevos valores de CAM 
y REG, Para que el bucle se dé por ter- 
minado, estos valores han de coincidir 
con los valores límite de cada bucle 
FOR: 10 y 100, respectivamente; 

1027 SF F" THEN LET CAM=10: LEÍ REG=10Ü:GO 
T0 1040 

Con esta línea queda «casi» completa 
la rutina de creación de la base de da- 
tos. Esta será utilizada a modo de sub- 
rutina, por lo que será necesario com- 
pletarla con una línea en la que figure 
un comando RETURN (retorno al punto 
de origen del salto a subrutina}. El lis- 
tado completo es el que aparece a con- 
tinuación. 

10 DIMAflloaiO) 

1000 FOR REG=1 T0 100 
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2104 IF B$=""THEN GOTO 2120 



1010 FOfi CAM=1 T0 10 

1015 PRINT "REGISTRO: ";R£G;"CAMPO: "CAM 

1020 INPUT BS 

1025 IF B£"@r THEN LET CAM=10: GOTO 1040 
1027 IF BS="@F" THEN LET CAM=10:LET REG=100:GOTO 
1040 

1030 LET A$|REG,CAM|=B$ 

1040 NEXTCAM 
1050 NEXTREG 
1100 RETURN 



Edición 

Después de crear la base de datos 
será necesario, con cierta frecuencia, 
alterar alguno de los datos. Es posible 
que se hayan cometido errores al intro- 
ducir ios datos por vez primera, o sim- 
plemente que los datos deban ser actua- 
lizados. 

Para cambiar el contenido de un cam- 
po específico hay que localizar el regis- 
tro al que pertenece y, por supuesto, el 
campo implicado dentro de este regis- 
tro. El método más directo para cambiar 
el contenido será asignar el nuevo va- 
sar, recogido en un INPUT, al elemento 
correspondiente. Ello se consigue por 
medio de la siguiente rutina. 

2-00 INPUT B$ 

2*10 LET A$fREG J CAM)=B$ 



En todo caso, es obvio que antes de 
ello habrá que depositar los valores 
adecuados en REG y CAM, Estos dos da- 
:os pueden también captarse a través de 
sendas instrucciones INPUT. Por lo de- 
más, también es conveniente mostrar el 
:ontemdo original del campo y su iden- 
: ficación. Todo ello queda contemplan- 
do en la siguientes líneas de programa; 

2010 INPUT "REGISTRO"; REG 

2020 INPUT "CAMPO"; CAM 

2330 PRINT M R E G I STRO' r ; R EG;' 'CAM P0 J r ;C AM 

2)40 PRINT "CONTENIDO; "AlREG.CAM} 



COLUMNA 




LOCATE <HLA><COLUMNA> 



P R | NT AT^olumna>< fila > r f < texto >- 



El comando LOCATE constituye una 
alternativa para aquellos ordenadores 
que no disponen del 
comando PRINT AT. 



Esta nueva instrucción hace que 
cuando no se introduzca un dato se sal- 
te a la línea 21 10, en la que se asigna 
el nuevo valor. El salto incondicional 
(GOTO) se efectúa a una línea que to- 
davía no ha sido escrita; ésta debe ser 
la que permita editar varios campos en 
una misma operación. 

Una vez introducidos los datos de re- 
gistro y campo que determinan el dato 
a editar (líneas 201 0 y 2020), se pueden 
seguir editando los campos que aparez- 
can a continuación. Para ello basta con 
modificar el valor de REG y CAM. Esta 
acción debe realizarse inmediatamente 



RUN<CR> 

REGISTRO? 12<CR> 
CAMPO? 3<CR> 
REGISTRO 12 CAMPO 3 
CONTENIDO: RUIIZ 
? RUIZ 



Desde luego, aún cabe realizar algu- 
nas mejoras en la rutina de edición. Es 
conveniente contar con la posibilidad de 
dejar inalterado el contenido de un cam- 
po, en el caso de que sea el correcto. 
También resultaría interesante la posi- 
bilidad de editar más de un campo de un 
tirón. 

Para solventar el primer problema es 
suficiente con introducir una condición; 
por ejemplo; sí no se introduce ningún 
valor, el contenido del campo en cues- 
tión no debe ser alterado Dicho efecto 
se consigue con la línea siguiente: 



NOMBRE TELEFONO 




98 



99 



100 



A$ (100,2) 



Nuestra base de datos , 
confeccionada a título de ejemplo, 
emplea un « arraya de cadenas de 
caracteres para almacenar 
organizadamente ios distintos datos. 



después de la edición del dato corres- 
pondiente; 

2120 LET CAM=CAM+1 

2130 IF CAM=1 1 THEN LET CAM=1:LET REG=REG+1 




LOCATE 



Ahora resultará fácil la edición de los 
ratos contenidos en la base. Se elige un 
registro y un campo, se ve su contenido 
» se introduce el nuevo valor. 

La ejecución de la rutina que nos ocu- 
pa producirá un resultado similar al que 
sigue: 



Sitúa el cursor en el lugar de la pantalla indicado en su argumento. 

Formato: (n . 5 de línea) LOCATE <flla> r <columna> 

Limpios: 10 LOCATE 10 r 8 ; PRINT "HOLA” 

50 LOCATE F,C : PRINT DATO 
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CREACION 



2106 IF B^'@F rH THEN RETÜRN 




5" !a etapa de creación de la base de 
zatos, dimensionaremos ía matriz de 
a macenamiento y procederemos a la 
^troducción de los primeros datos . 



: "REGC101THEN GOTO 2030 

1 x "NO HAY MAS DATOS" 

La línea 2120 es la encargada de in- 
crementar el contador de campos. En el 
zaso de agotar los campos de un regis- 
tre se ha de pasar al siguiente registro. 
F (o se ordena en la línea 2130. Mien- 
tras no se acaben los registros (mien- 
tras REG sea menor que 101) se regre- 
sará a ía zona de edición, mostrando el 
tempo y pidiendo un nuevo dato (GOTO 
2030). En el caso de llegar al final de la 
tase de datos aparecerá en la pantalla 
e mensaje "NO HAY MAS DATOS". 



Al igual que en la etapa de creación 
de la base, en la edición puede no ser 
necesario recorrer todos los datos. En 
este punto, introduciremos dos «coman- 
dos» que harán más cómoda esta zona 
del programa. El primero de ellos servi- 
rá para abandonar la edición, el otro 
permitirá saltar al siguiente registro. 

Para mantener un paralelismo con los 
«comandos» empleados en la zona de 
creación, utilizaremos los mismos ca- 
racteres. Así pues, para dar por termi- 




En fas bases de datos , éstos suelen 
organizarse en registros: a su vez. 
cada registro acoge a los datos 
guardándolos en los respectivos 
campos. 



nada la edición se tecleará "@F'\ La lí- 
nea detectora de este comando se for- 
mula como sigue: 



El motivo de incluir el RETURN en el 
argumento de TREN obedece a que, 
como en el caso de la creación, se trata 
de una subrutina, 

Al tropezar con este comando, el pro- 
grama volverá a ia zona principal de 
cuyo estudio nos ocuparemos más ade- 
lante. El salto al registro siguiente se 
obtendrá con ios caracteres "@R". En 
este caso, la línea correspondiente es 
idéntica a la utilizada en la rutina de 
creación. 

2108 IF THEMI LEI CAM =1:LET REG=REG 

+1 1 :G0T0 2030 

Tal y como se observa, el salto (GOTO) 
se realiza al punto en el que se permite 
la edición del dato elegido. 

La rutina al completo adopta el si- 
guiente aspecto: 

2010 INPUT "REG1STR{T;REG 

2020 INPUT 'CAMPO' ;CAM 

2030 PRINT ” R EG ISIR0' r ; R EG; J F CAM P0 'X AWI 

2040 PRINT "CONTENIDO: ",Af|REG,CAM) 

2100 INPUT BS 

2104 JF B$="" THEN GOTO 2120 



Diagramas de flujo 



isz previa a Ja codificación efe un programa se 
: : ' : r eia en el análisis y descomposición del problema a 
ver. Ello empieza con el estudio del algoritmo o 
~£::óc de solución, y más tarde, mediante la 

posición de! algoritmo en una serie de acciones 
cáseas reflejadas en un ordinograma, 

: agramas de flujo, también llamados flujogramas u 
yz gramas, son gráficos que permiten la 
presentación simbólica del algoritmo. Con ello se 
xrsigue ordenar un problema en una sucesión de 
zasos que permitirán desglosarlo. Por lo tanto, estos 
- .ogramas facilitan la posterior codificación e 
“reducción en la máquina del algoritmo para resolver 
e ema, 

I^'dc un algoritmo ha sido traducido a ordinograma, 
£5 rás fácil codificar el programa utilizando un 
e informático. 

F croar lógico para confeccionar un programa 
errado a! ordenador se concreta en los siguientes 
aras 

Etj: o del algoritmo. 

1 Traducción del algoritmo a ordinograma. 



3. Confección del programa en eí lenguaje apropiado. 
Muchos programadores piensan que no es necesario 
pasar por la fase de construir el ordinograma. Sin 
embargo, la experiencia dicta que, en el 90% de los 
casos, tal omisión sólo contribuye a dificultar Ja 
escritura del programa. Hasta llegar incluso al extremo 
de imposibilitar su eficaz puesta a punto. 

Los ordinogramas se componen de dos zonas 
fundamentales. Por un lado las órdenes o acciones que 
debe ejecutar el ordenador; éstas se enmarcan dentro 
de una serie de figuras geométricas. Por otro, la 



secuencia de control o de procesado de órdenes, que se 
representa por medio de líneas que enlazan a las 
diversas acciones. 

Cada tipo de orden o acción se enmarca dentro de una 
determinada figura geométrica. Las principales son Jas 
que ilustra la figura adjunta. 

Es importante observar que el ordinograma resulta de 
fácil lectora y constituye una documentación del 
programa eficaz e inteligible. En él pueden utilizarse 
frases del lenguaje corriente, abreviaturas, e incluso 
instrucciones próximas a los lenguajes de programación. 





PRINCIPIO 




DECISION CONEXIONES 



CONTROL 

(FLUJO) 



Oou I 



E 





2106 IF B$="@F" THEN RETURN 
2108 IF THEN LEÍ CAM=1: LET REG=REG+1 :G0 

TO 2030 

2110 LETA#REG,CAMfB$ 

2120 LET CAM=CAM+1 

21 30 IF CAM=1 1 THEN LET CAM=1:LET REG-REG+1 
2140 IFREG<101 THEN GOTO 2030 
2150 PRINT "NO HAY MAS DATOS" 

2160 FOR 1=1 TO 1000:NEXT I 
2170 RETURN 

En ella aparecen dos nuevas líneas, 
que introducen un retardo para que sea 
posible leer con comodidad el mensaje 
antes de regresar al programa principal. 



Visualización 

A estas alturas se han confeccionado 
ya las rutinas capaces de crear y editar 
base de datos; queda por crear una ter- 
cera zona que permita visualizar los da- 
tos. Este es, precisamente, el cometido 
del apartado en el que nos encontra- 
mos: estudiar la rutina de visualización. 

En principio, esta rutina no tiene ma- 
yor complicación que la de dar un as- 
pecto agradable a la presentación de los 
datos que, por supuesto, deben ser pre- 
sentados agrupadamente, por registros. 
Una vez elegido el registro, éste se mos- 
trará al completo. 

Para que la presentación sea satisfac- 
toria, han de visulizarse, junto con el 
contenido de los campos, el número del 
registro y campo de cada dato. Los dis- 
tintos campos se recorren por medio de 
un bucle de tipo FOR/NEXT. Veamos 
una primera aproximación a las instruc- 
ciones de la nueva rutina. 

3100 CLS 

3110 PRINT ' REGISTRO NUMERO ";REG 
3120 PRINT 

3130 FOR CAM-1 T0 10 

3140 PRINT 'CAMPO ,r ;CAM;"= F ' A$REG,CAM) 

3150 NEXT CAM 

Con esta rutina, los datos serán visua- 
lizados después de borrar la pantalla. 
Cada registro que se visualice ocupará 
toda la pantalla. Primero, como ya se ha 
indicado, se borra la pantalla, y tras ello 
se procede a mostrar el número corres- 
pondiente al registro, en fa línea 3110. 
La siguiente línea sirve para dejar un es- 
pacio entre esa cabecera y el grupo de 
datos. El contenido de cada campo se vi- 
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VISUALIZACION 



Las tres acciones fundamentales que hay que realizar en una base de datos se 
concretan en su creación, actualización del contenido y visualización del mismo. 



sualizará en una línea de pantalla, pre- 
cedido por el indicativo del campo en 
cuestión. 

El número del registro a visualizar 
debe encontrarse almacenado en la va- 
riable REG. Sin embargo, esta variable 
no ha sido iniclalizada en el cuerpo de 
la rutina que nos ocupa. Para determi- 
nar dicho valor, se ejecutará un bucle 
de búsqueda cuya filosofía es la siguien- 
te: se proporciona un dato y el ordena- 
dor busca el primer registro que conten- 
ga ese dato. Una vez localizado el nú- 
mero del registro afectado, se pasa a ía 
visualización del mismo. Hay que tener 
en cuenta que junto con el dato a bus- 
car debe indicarse el campo en el que 
se ha de realizar la búsqueda. 

Veamos cómo es posible programar 
tal proceso: 

3010 INPUT ' BUSCO EN EL CAMPO NUM. r ';CAM 
3020 INPUT 'QUE DATO J ;D$ 

3030 FOR REG-1 T0 100 

3040 IF $$(REG,CAM)=D$THEN GOTO 3100 

3050 NEXT REG 

3060 PRINT "NO ENCUENTRO ESE DATO" 

3070 INPUT 'BUSCO OTRO DATO (S/N)";B$ 

3080 IF THEN GOTO 3010 
3090 RETURN 

Las referidas líneas de programa tie- 
nen encomendada la búsqueda del dato 
elegido. Ello se realiza dentro del bucle 
FOR/NEXT delimitado por las líneas 
3030 a 3050. Dicho bucle recorre todos 



De nada sin/e una base de datos st 
ésta no permite una adecuada 
presentación del contenido de los 
registros. 

los registros, comparando ei campo 
mencionado con el dato propuesto. 
Cuando se halla un campo cuyo conte- 
nido coincide con ei elegido, se procede 
a visualizar el registro implicado (GOTO 
3100). En ei caso de no encontrar el 
dato propuesto, concluirá el bucle mos- 
trando el correspondiente mensaje (lí- 
nea 3060). De ocurrir tal circunstancia, 
el programa preguntará al usuario si de- 
sea realizar otra búsqueda, para regre- 
sar, en consecuencia, a la línea 3010 o 
al programa principal. 

Al concluir las líneas de programa 
que gestionan la visualización, hay que 
introducir algunas instrucciones adicio- 
nales que garanticen la continuación 
del programa. Siguiendo con la misma 
filosofía, lo lógico sería que se pasara al 
siguiente registro. Si se desea buscar 
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La zona de 
visualización de (a 
base de datos 
confeccionada 
incluye una rutina 
para la búsqueda de 
los registros 



otro registro se empleará el comando 
"@R", mientras que si se opta por fina- 
lizar la inspección se tecleará "@f\ 

Estas nuevas posibilidades se añaden 
al final de la rutina de visualización. Las 
adecuadas líneas de programa presen- 
tan una gran similitud con las que eje- 
cutan una función análoga en las dos 
rutinas precedentes: 

3200 PRINT 'ENTER REGISTRO SIGUIENTE" 

3210 PRINT "@R NUEVO REGISTRO" 

3220 PRINT FINALIZACION" 

3230 lNPUrOPCIQN r ';B$ 

3240 IF B$=' J "THEN REG=REG+1:GOT0 3100 
3240 IF THEN GOTO 3010 
3240 IF B$=' (5)F r TEIEN RETURN 
3250 GOTO 3100 

Las tres primeras instrucciones mues- 
tran en la pantalla los comandos a uti- 
lizar y definen su función. De esta for- 
ma, el operador siempre tendrá presen- 
tes las instrucciones que puede utilizar. 
La línea 3230 es la encargada de cap- 
tar la arden que introduzca el usuario. 



Aritmética binaria 

Sin lugar a dudas, el sistema de numeración más 
profusamente utilizado es el decimal. Este es el habitual 
para el ser humano. Sin embargo, sus características lo 
hacen muy poco idóneo para el uso interno del 
ordenador. Los ordenadores utilizan el sistema de 
numeración binario, basado en los dígitos 1 y 0. 



Para acercarse a las interioridades del ordenador resulta 
imprescindible conocer el sistema binario. El primer 
paso debe ser, forzosamente, aprender a contar en 
binario. 

Las diferencias respecto a la representación decimal 
quedan patentes en la tabla adjunta. De los diez 
primeros números (las cifras decimales del 0- al 3), tan 
solo coinciden las dos primeras. El número decimal 2 se 
convierte en 10 en binario, el 3 en 1 1, el 4 en 100, y 




Los ordenadores 
operan 

internamente en 
el sistema binario , 



así hasta el 9, cuya formulación binaria es 1001 . 

Ef siguiente número, esta vez ya con dos cifras, se 
genera sumando una unidad al anterior, Así pues, para 
poder seguir la cuenta es preciso conocer los 
fundamentos de la suma binaria. 

Al igual que la suma decimal, la binaria también se 
realiza cifra a cifra, respetando sus posiciones 
respectivas; o lo que es lo mismo, operando entre sí los 
dígitos del mismo peso. 

Por ejemplo, para sumar en decimal 1 7 y 35 se agrupan 
las unidades (7 y 5) y se suman dichos dígitos. Del 
resultado de esa primera operación (7+5-1 2) se toma el 
dígito de la derecha (2). El dígito sobrante (denominado 
de acarreo) se suma con los de las decenas (1+1+3=5J 
En definitiva, el resultado final es 52: cinco decenas y 
dos unidades. 

El mismo método es el que se aplica en la suma 
binaria. Como en binario sólo existen dos dígitos, resulta 
muy fácil aprender la «tabla de sumar*. Dicha tabla es 
la que se relaciona a continuación: 

0 + 0=0 

0 + 1=1 

1 + 0=1 

1 + 1-10 

Las tres primeras expresiones coinciden con sus 
equivalentes en el sistema decimal. Cosa que no ocurre 
con la cuarta: al sumar 1 y 1 se obtiene un resultado 0 
con acarreo de 1 (1+1=0... y me llevo una). 
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Dentro de nuestro ejemplo se procede di diseño de algunos 
pseudo-comandos destinados a facilitar el manejo de ¡a 
base de datos. 



I La segunda etapa se concreta en la modificación de los 
datos residentes en la base . caso de que fuera preciso , y en 
ia introducción de nuevos datos. 



A su vez , ¡os comandos JF que siguen 
desvían la ejecución dependiendo de la 
orden recogida. Si el usuario no teclea 
ninguno de los comandos propuestos, 
se llega a la línea 3250 cuyo cometido 
es repetir la visualización. 



Ahora todo junto 

Las tres rutinas comentadas gestio- 
nan las tres acciones enunciadas al co- 
mienzo del presente capítulo. Sin em- 



bargo, éstas han sido concebidas como 
subrutínas de un programa principal. Lo 
que queda por programar es precisa- 
mente el programa principal. 

Dado que las rutinas anteriores son 
independientes entre sí, el cuerpo prin- 
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Las tablas de sumar y multiplicar en 
binario resultan bastante más 
sencillas que sus homologas en el 
Sistema de numeración decimal. Ello 
se debe a que en binario se utilizan 
sólo dos dígitos: 0 y 1. 




Con estos ligeros conocimientos no debe resultar difícil 
sumar números de cualquier cantidad de dígitos. Por 
“¡emplo, los números binarios 10 y 1 1: primero los 
dígitos de menor peso 0*1 =1,1 u ego los siguientes 
1*1=10. Ordenando el resultado queda 101. Un valor 
totalmente lógico, ya que 10 es dos y 1 1 es tres, su 
suma ha de ser 101 (el cinco decimal}. 

multiplicación binaria tampoco encierra misterio 
alguno. El método vuelve a ser semejante al utilizado 



en el sistema decimal. La tabla de multiplicar binaria es 
la siguiente; 

0x0=0 

0x1=0 

1x0=0 

1x1=1 

A partir de esta tabla se puede ya realizar cualquier 



multiplicación binaria. Como ejemplo se muestra una 
sencilla multiplicación de números de dos cifras 

10 

*11 

10 

10 - 

110 

Al igual que en el caso de ta suma, tampoco ahora fallan 
las matemáticas; tres por dos es igual a seis en cualquier 
sistema de numeración. 

Conociendo la suma y la multiplicación binarias, la divi- 
sión y la resta son fácilmente deducidles, A partir de ahí 
trabajar en binario es tan sencillo como hacerlo en deci- 
mal. 
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cipal del programa accederá a cada una 
de ellas de forma independiente. En de- 
finitiva, el cuerpo principal del progra- 
ma debe proponer al usuario la elección 
entre uno de los tres procesos: creación, 
edición o visualización. De ello se en- 
cargará un -menú- visualizado en ia 
pantalla. 

La confección de menús es una tarea 
ya descrita en otro punto de la obra. De 
ahí que no profundicemos al respecto en 
este capítulo. Por ef contrario, sí vamos 



a estudiar un nuevo comando que en de- 
terminados ordenadores realiza la mis- 
ma función que el conocido PRINT AI, 



Se trata de! comando LOCATE, cuya 
especialidad es situar el cursor en un 
determinado punto de la pantalla. Tras 



La actividad del ordenador 

¿Para qué sirve un ordenador? Este es uno de los 
primeros interrogantes que surgen el tomar un primer 
contacto m el mundo de la informática. La respuesta 
no deja de resultar problemática por su difícil 
concreción. El motivo radica en que un ordenador puede 
hacer, o por lo menos ayudar a hacer, casi todo; siempre 
que cuente con el programa adecuado y con el apoyo de 
los periféricos idóneos. 

A la hora de adquirir una idea real de lo que cabe 
esperar de un ordenador, es muy conveniente empezar 
conociendo cómo trabaja. Para ello, resulta ilustrativo 
comparar la actividad de la maquina con el trabajo 
cotidiano en la oficina de facturación de una empresa, 

La oficina está situada en una habitación provista de dos 
ventanillas, una de recepción o entrada y otra de salida. 
El empleado necesita tener a mano el conjunto de 
normas que detallan su trabajo, así como los datos 
necesarios para realizar cada tarea. Para ello dispone de 
un tablero, donde coloca el albarán que contiene los 
datos de entrada. Este albarán incluye el nombre del 
cliente con el que se efectúa la operación, asi como el 
tipo de artículos y la cantidad de los mismos. 
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TABLA DE CONVERSION 


Posicionamiento 
en pantalla 


Ordenador 


PRINT AT (X, Y)<arg> 


LOCATE X,Y 


AMSTRAD 


- 


LOCATE X r Y 


APPLE ti (APPLESOFT) 


-(2) 


- 


APRICOT (M-BASIC) 


- 


- 


ATARI 


- 


POSITION X,Y 


CBM 64 


- 


- 


DRAGON 


PRINT <n>,<arg>(1) 


- 


EQUIPOS MSX 




LOCATE X, Y 


HP-150 


— 


- 


IMBPC 


- 


LOCATE Y. X 


MPF 


—(2) 


- 


NCR DM-V (MS-BASIC] 


- 


- 


NEW BRAIN 


— 


- 


ORIC 


PRINT X, Y; <arg> 


- 


SHARP MZ-700 (MZ-BASIC) 


- 


- 


SINCLAIR QL 


— 


CURSOR X, Y 


SPECTRAVIDEO 


- 


LOCATE X, Y 


ZX-SPECTRUM 


PRINT AT Y, X; <arg> 


- 



(1) En el Dragón, el número <n> especifica una posición de la pantalla, 

(2) Utilizan HTAB y VTAB para indicar las coordenadas horizontal y vertical respetivamente. 



ejecutarlo, el siguiente comando PRINT 
empezará a escribir a partir de dicho 
punto. En los dialectos BASIC que inclu- 
yen el comando LOCATE en lugar del 
PRINT AT, la instrucción PRINT AT 2,4 
"HOLA" habrá de desdoblarse en dos; 
la de posiclonamiento y la de impresión. 
La primera se resuelve con LOCATE 4,2 
y le segunda con PRINT "HOLA". Obsér- 
vese que los parámetros de LOCATE es- 
tán intercambiados con respecto a los 
de la partícula AT. La razón de ello la 



Sobre el tablero también hay un folleto con la tarifa de 
precios vigente y con información sobre los descuentos 
a aplicar a cada cliente. Al lado de estos datos se 
encuentra la lista de normas a seguir para realizar el 
: f abajo. Algo semejante a un programa cuyas 
nstrucciones detallan, paso a paso, las operaciones a 
poner en práctica. Como herramienta de cálculo, el 
administrativo dispone de una pequeña calculadora. 

Dado el volumen de la información puesta en juego, es 
posible que el espacio disponible en el tablero sea 
insuficiente- Por esta razón el operario dispone de un 
archivo localizado en una habitación contigua, En este 
almacén residen los ficheros que guardan la 
HÍormación que no es posible mantener en el tablero - 
sor falta de espacio. 

En resumidas cuentas, el administrativo lleva al tablero, 
exclusivamente, la información necesaria para ejecutar 
jns parte del trabajo. Cuando necesita más datos, por 
raber concluido esa parte del trabajo o porque los datos 
no son ya los adecuados, actualizará la información 
adherida al panel. Esta es una situación parangonadle 
:on la actividad y con el método de trabajo habitual en 
un ordenador. Cada uno de los elementos descritos 
• ane su homólogo en la máquina. 

_= ventanilla de recepción equivale al órgano para 
airada de información (normalmente, el teclado} del 
"d enador. El administrativo, rodeado de sus 
■erramientas operativas (papel, lápiz, calculadora...} 
gestiona el tratamiento de la información; tarea ésta 
encomendada a la unidad central de proceso del 
idenador (el microprocesador, en el caso de un 
iraenador personal]. 

E oanel tiene su reflejo en la memoria centra! del 
"dañador, en la que se almacenan los datos y 
zrogramas en curso de ejecución. Este cuenta con el 
auxilio de un archivo de gran capacidad, al que se 
oslada o del que se extrae la información de trabajo; la 
-nemorid de masa del ordenador. 

último, el resultado del trabajo acometido, la factura 
: F ¡g¡da al cliente, abandona el recinto a través de la 
•manilla de salida. Una imagen paralela al órgano de 
:a>ida del ordenador (por ejemplo, la pantalla de 
realización). 



encontramos en la distinta formulación 
de este nuevo comando: 

(Numero de línea) LOCATE <fila>, <co- 
lumna> 

Como ilustración práctica del uso del 
comando, y siguiendo con el ejemplo 
desarrollado en el presente capítulo, se 
incluyen a continuación las primeras lí- 
neas del menú. 

200 REM MENU 
210 LOCATE 5,10 
220 PRINT rJ MENU' r 
230 LOCATE 10,5 



240 PRINT "1 .....ENTRADA DE DATOS" 

250 LOCATE 12,5 

260 PRINT "2 EDICION DE DATOS" 

270 LOCATE 14,5 

280 PRINT 1 VISUALIZACION DE DATOS" 

Las referidas instrucciones llevarán a 
la pantalla las opciones de que dispone 
el usuario. 

Recuerde que si su ordenador no in- 
cluye el comando LOCATE, puede rea- 
lizar la misma función con PRINT AT 
Por supuesto, también puede adecuar el 
menú a su pantalla variando las coor- 
denadas de LOCATE (o de PRINT AT). 
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1 RETI 

2 REM — BASE DE DATOS— 

3 REM ----- 

ÍO DJÍ1 A$í 10Ü.1Ú) 

199 REM 

200 REM — MENO— 

201 REM— — 

210 LOCATE 5, 10 
220 PRINT "MENU" 

230 LOCATE 10,5 

240 PRINT - 1 ENTRADA DE DATOS” 

250 LOCATE 12,5 

260 PR1NT ”2 EDICION DE DATOS" 

>70 LOCATE 14, 5 

280 PR1NT "3 .VIS LIA L I Z A C I O N DE DATOS" 

300 LOCATE 20,5 

310 INPUT H ELJA OPCION (1“3) “,NÍ 
320 N=VÁL{N$) 

330 DN N GOSUB 1000,2000,3000 
340 GOTO 200 

997 REM 

998 REM —CRIACION— 

999 REM — — 

1000 FOR REB= 1 TO 100 
1010 FQR CAM= 1 TO 10 

1015 PRINT ''REGISTRO: ";RE6," CAMPO: ",CAM 
1020 INPUT m 

1025 IF B$=W THEN LET CAM=fO: OOTO 1040 

1027 IF B$=V THEN LET CAM=10:LET REG= 1Qp:GQT01040 

1030 LET A|(REG,CAfí)=B$ 

1040 NEXT CAM 
1050 NEÍÍT REG 
1 1 00 RETURN 

2000 REM — 

2001 REM— EDICION— 

2002 REM 

2010 INPUT '■REGISTRO ,, ;REG 

2020 INPUT TAMPO";CAM 

2030 PRINT "REGISTRO ",REG,” CAMPO ",CAM 

2040 PRINT "CONTENIDO: ,A$(REG,CAM) 

2100 input m 



2104 IF B$="" THEN GOTO 2120 
2106 IF B$=>F“ THEN RETURN 

2103 IF B$='W J THEN LET CAM=1:LET REG=REG+1: GOTO 2030 
2110 LET A$(REG, CAMjsBÍ 
2 120 LET CAM-CAM+1 

2 330 IF CAM- 1 1 THEN LET CAM=tiET REG-REG+1 

2 3 40 IF REG <101 THEN GOTO 2030 
2150 PRINT "NO HAV MAS DATOS" 

2160 POR Id TO ÍOGOiNEKT I 
2170 RETURN 

3000 REM ——————— 

3001 REM— VISUALIZACIQN— 

3002 REM 

3010 INPUT "BUSCO EN EL CAMPO NUM 'jCAM 
3020 INPUT "QUE DATQ";D$ 

3030 FOR RE 6= 1 TG 100 

3040 IF A$ÍREG,CAM)=D$ THEN GOTO 3100 

3050 NEXT REG 

3060 PRINT ”N0 ENCUENTRO ESE DATO" 

3070 INPUT "BUSCO OTRO DATO (S/N)";B$ 

3080 If 6$="S" THEN GOTO 3010 
3090 RETURN 
.3100 CLS 

3 110 PRINT "REGISTRO NUMERO “jREG 
3120 PRINT 

3130 FQR CAM= í TO 10 

3140 PRINT "CAMPO ";CAMj"= LAKREG^AM) 

3150 NEXT CAM 

3200 PRINT "ENTER REGISTRO SIGUIENTE" 

3210 PRINT >R...... NUEVO REGISTRO" 

3220 PRINT >F FINAL IZAC ION" 

3230 INPUT "OPCION" ;B| 

3240 IF B$="" THEN REG-REG+1 :GOTO 3100 
3240 IF B$= W THEN GOTO 30 1 O 
3240 !F B$="@F" THEN RETURN 
3250 GOTO 3100 



Después de presentar el menú, es 
preciso recoger la opción elegida por el 
usuario. Tarea que se resuelve con un 
nuevo comando INPUT. Para situar el 
punto de entrada del dato volvemos a 
hacer uso de LOCATE. 

300 LOCATE 20,5 

310 INPUT "ELIJA OPCION (1-3), 



320 N=VAL(N$) 

330 ÜN N GOSUB 1000,2000,3000 
340 GOTO 200 

En ei argumento de INPUT figura una 
variable de cadena. Su presencia evita- 
rá Ja generación del mensaje de error 
correspondiente a la introducción acci- 
dental de una letra. La línea 320 extrae 



de N$ el dato numérico, depositándolo 
en la variable N. Esta es la variable que 
se utiliza en la línea 330 para el salto 
a la subrutina adeucada. En el caso de 
no aportar un dato correcto, et GOTO de 
ia siguiente línea hará que la secuencia 
de ejecución retorne a la línea 200 para 
visualizar de nuevo el menú de opcio- 
nes. 
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Archivos en 
BASIC (I) 



Introducción a los 
archivos secuenciales 



I principal incon- 
veniente que tiene 
un ordenador es 
que sólo recuerda 
la información du- 
rante el tiempo en que está enoencido. 
Esto significa que al apagar el equipo se 
pierde la información contenida en su 
memoria central. Para evitar el engorro 
de volver a introducir los datos cada vez 
que se inicia una nueva sesión, hay que 
recurrir a la solución de almacenar la 
información en un soporte externo. En 
este punto, cabe recordar que los sopor- 
tes más utilizados con los microordena- 
dores son las cintas de casete y los dis- 
cos flexibles. 



Archivando información 

La información almacenada en un dis- 
positivo externo se agrupa en «archivos» 
o «ficheros». Un archivo consiste en un 
bloque homogéneo de datos o instruc- 
ciones. Así, por ejemplo, cuando se al- 
macena un programa en cinta o disco se 
está creando un archivo. Sin embargo, 
éste no es el único método para crear 
bloques organizados de información. 

La estructura de un archivo va a de- 
pender de la forma en Ja que éste se al- 
macena. En principio, un archivo se pue- 
de concebir de dos formas diferentes: 
secuencial o aleatorio. 

Un archivo secuencial es, como su 
propio nombre indica, aquel al que se 
accede recorriendo sus elementos uno 
a uno (secuencíalmente), Este es, preci- 
samente, el método utilizado con las 
cintas en casete. En un casete es preci- 
so pasar por los datos anteriores para 
acceder a un dato específico. Además, 
una vez leído el dato no es posible vol- 
ver a él de inmediato (a no ser que se 
rebobine la cinta magnética manual- 
mente). Tal es la filosofía de los archi- 
vos secuenciales. 

Un archivo de tipo aleatorio o de ac- 
ceso directo funciona de forma bien dis- 
:¡nta. En él se puede acceder a un dato 
directamente, sin necesidad de leer los 
anteriores. Concretamente, la informa- 
ción almacenada en un archivo se agru- 
pa en registros y dichos registros son los 



DATOS 




que pueden ser recuperados de forma 
directa; esto es: se puede leer el regis- 
tro quinto, luego el segundo y más tar- 
de el octavo. Por su naturaleza, este tipo 
de archivos no puede ser creado en ca- 
sete, sino tan sólo en soportes de acce- 
so aleatorio como es el caso del disco. 



Manejo de archivos 

Para manejar los archivos es necesa- 
rio seguir, paso a paso, una secuencia 
definida de acciones. Los pasos a dar se 
asemejan en cierta medida a los nece- 
sarios con un archivo físico. Esto es: 
apertura del archivo, consulta y cierre 
del mismo. 

Para la apertura y cierre se hace uso 
de dos comandos BASIC genéricos: 
OPEN (abrir) y GLOSE (cerrar). El mane- 



Para ei almacenamiento permanente 
de la información se utilizan soportes 
de memoria conectados 
externamente al ordenador. En el 
ámbito de la microinformática, los 
soportes más frecuentes son la cinta 
de cassette y el disco magnético. 



jo de la información, sin embargo, de- 
pende del tipo de archivo. 

Los archivos de tipo secuencial fun- 
cionan de modo muy semejante al te- 
clado y a la pantalla. Para escribir en 
uno de ellos se mandan los datos uno 
tras otro, de la misma forma que los da- 
tos se mandan a la pantalla con un 
PRINT. La lectura se efectúa también de 
forma análoga, equivalente a 1a recogi- 
da de datos del teclado con la orden IN- 
PUT. 

Si el archivo a tratar es aleatorio, ha- 
brá que tener presente el formato de los 
registros. Una vez definido el archivo en 
cuestión, la lectura y escritura se reali- 
za trasladando a la memoria central del 
ordenador el registro adecuado. Con el 
registro en la memoria del ojdenador, la 
lectura o escritura de sus elementos es 
similar a la lectura o escritura del con- 
tenido de una variable. 




Un lenguaje informático 
de propósito general 
como es el BASIC , no 
podía relegar al olvido el 
apartado de tratamiento 
de archivos , 
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SECUENCIAL 




ALEATORIO 
( directo ) 



Atendiendo al método de acceso a la información almacenada , 
cabe diferenciar entre dos tipos básicos de archivos : 
los secuenciales y los de acceso directo o «aleatorio». 



Archivos secuenciales: apertura 

Como se indicó anteriormente, el co- 
mando que realiza la apertura de un fi- 
chero es OPEN. Antes de proceder a la 
explicación de OPEN es necesario cono- 
cer algunos detalles acerca de la aper- 
tura de archivos. 

Los archivos almacenados en un mis- 
mo soporte se identifican por medio de 
un nombre. Por ejemplo, al grabar un 



programa es preciso otorgar a éste un 
nombre que facilite su identificación. 
Este nombre sirve para no confundir 
unos archivos con otros, dentro del mis- 
mo soporte. Así pues, cada archivo ha 
de tener su nombre identificativo. 

Como sabemos, existen dos tipos de 
archivos: secuenciales y aleatorios. Am- 
bos tipos son mutuamente incompati- 
bles, por ello es preciso especificar el 
tipo al acceder a un archivo. En el caso 
de Jos archivos secuenciales no es po- 



sible leer y escribir al tiempo. Ello hace 
que se deba optar forzosamente por una 
de ambas acciones. 

En algunas ocasiones puede ser ne- 
cesario tener abierto más de un archivo 
al tiempo; por ejemplo, a la hora de tras- 
pasar información de un archivo a otro, 
o comparar dos archivos entre sí. Si esto 
ocurre, será preciso tener bien diferen- 
ciados los distintos archivos abiertos. 

Toda esta información debe ser indi- 
cada en la apertura del archivo. Así 
pues, la instrucción OPEN presenta, por 
lo general, el siguiente formato: 

(numero de línea) OPEN<modo>,#<nu- 
mero>,<nombre> 

A continuación la palabra reservada 
OPEN se indica, en la zona <modo>, eí 
tipo de archivo. 

En el caso de los archivos secuencia- 
les se especificará también sí van a uti- 
lizarse como archivos de salida o de en- 
trada, escribiendo una "O" (de Out- 
put= salida) o una ”1” (de lnput=entra- 
da). 

Tras eí signo de número (#) se adjun- 
ta un dato o expresión numérica. Este 
dato identifica al archivo en cuestión en- 
tre todos los que se encuentren abier- 
tos at mismo tiempo. 

Por último, ha de figurar el nombre 
otorgado al fichero. Junto al nombre es 
corrientes indicar el dispositivo en el 
que se encuentra el archivo. 

Este formato no es ni mucho menos 
generalizable, aunque sí es de ios más 
utilizados. 

Existe otro formato, también muy fre- 
cuente, el cual ofrece el siguiente as- 
pecto: 

(número de línea) GPEN<nom- 
bre>FO R<m odo>AS#<n ú m ero> 

En el que <modo> admite las pala- 
bras clave INPUT o OUTPUT. 

A lo largo de este capítulo se utilizará 
el primero de los formatos descritos. 
Como ya se ha mencionado, la estanda- 
rización en este tema brilla por su au- 
sencia, De todos modos, este capítulo 
sólo pretende aportar una introducción; 
más adelante se completará la informa- 
ción relativa al tema de manejo de ar- 
chivos. 

Con Jas indicaciones señaladas, la 




APERTURA 

Las tres operaciones básicas que hay que realizar con un archivo coinciden con las 
habituales en un archivo físico apertura , consulta y cierre. 
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I 



La lectura de datos de un archivo guarda una atería relación 
con la recogida de datas introducidos a través del teclado : 
en este caso, el comando a utilizar es INPUT, 




A la hora de abrir un archivo secuencia l es preciso indicar el modo 
en el que éste se va a utilizar : éste puede coincidir con el modo 
escritura/ salida («O») o lectura/ entrada («I»). 



apertura de un archivo no reviste mayor 
complicación. Por ejemplo, para abrir un 
archivo de nombre DATOS, almacenado 
en casete, para realizar en él operacio- 
nes de lectura, bastará con introducir lo 
siguiente: 

OPEN TMf1 r w C:DAT0S“ 

La instrucción especifica que se rea- 
lizarán operaciones de lectura sobre el 
archivo (entrada al ordenador) con el 
dato "I", y que se trata del archivo DA- 
TOS residente en casete, con el indica- 
tivo "C:DATGS". El periférico suele es- 
pecificarse con algunos caracteres que 
preceden al nombre del archivo y sepa- 
rados de éste por el signo dos puntos (:). 
En nuestro caso hemos tomado # 'C:" 
como indicativo de la unidad de casete. 
Algunos equipos consideran al casete 
como dispositivo por defecto; esto es, si 
no se especifica otra cosa se supone que 
el archivo se encuentra en casete. 

Si se desea abrir un nuevo archivo 
para salida de datos puede utilizarse la 
siguiente expresión: 

' GPEN "(T,#2/'D;RESULr 

En este segundo caso se ha utilizado 
la opción "O" que permite la salida de 
datos. El número 2 diferencia a este 
nuevo archivo del abierto con anteriori- 
dad. Por lo demás, se especifica que el 
archivo se encuentra en disco por me- 
dio del prefijo D:. Tras abrir el archivo 
puede ya procederse a su lectura o ac- 
tualización. 



Escritura en un archivo secuencia! 

Para escribir datos en un archivo se- 
cuencia! es imprescindible que éste 
haya sido abierto con anterioridad. En el 
comando de apertura se habrá otorgado 
al archivo un número identificador que 
se utilizará, posteriormente, como refe- 
rencia para el acceso al archivo en cues- 
tión. Además, el archivo se habrá abier- 
to en modo escritura (con el carácter 
"O"). 

Como ya se mencionó anteriormente, 
la escritura de un archivo secuencíal se 
asemeja a la escritura en pantalla; has- 
ta el punto de que incluso el comando 
al efecto coincide: PRINT. Al actuar so- 



bre archivos, el comando PRINT se 
acompaña del signo # seguido por el nú- 
mero del archivo a tratar. 

Volviendo al ejemplo anterior, para 
escribir la palabra "SALIDA" en el ar- 
chivo RESULT habría que teclear lo si- 
guiente:: 

PRINT#2/ J SALIDA 1 ' 

En todo caso, lo más interesante será 




Formato: OREN "<modo>''I#j<húmera> # <nombre> 

Ejemplos: 10 OPEN T,#1 /‘DATOS" 

50 OPEN "CARCHI V0" 



guardar una cantidad grande de datos, 
por ejemplo un «array» o matriz de da- 
tos. Para almacenar una matriz en un 
dispositivo externo es aconsejable utili- 
zar un bucle FOR. El siguiente ejemplo 
muestra cómo realizar dicha operación. 

100 OPEN ”0 r ,#1/C:MATRIZA r ' 

110 FOR 1=1 T0 100 
120 PRINTílLAfl) 

130 NEXT I 



Realiza la apertura de un archivo en un dispositivo de almacenamiento externo. 
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OPEN es el comando BASIC 
especializado en la apertura de 
archivos. 



Estas cuatro líneas cíe programa al- 
macenarán automáticamente los cíen 
elementos de la matriz A en el archivo 
en casete llamado MATRIZA, datos que 
quedarán almacenados uno tras de otro. 
A la hora de proceder a su lectura éstos 
aparecerán en el mismo orden en el que 
se almacenaron, y en cualquier caso el 
primero en leerse será el elemento A{1 ). 

Si se desean almacenar distintos ti- 
pos de datos en un mismo archivo será 
preciso utilizar varios comandos 
PRINT#. Un ejemplo de esta posibilidad 
es el que figura a continuación. 

200 OPEN r 'Ü' r ,#1, TISTA' J 
210 PRINTffl /'LISTA DE DATOS" 

220 PRINTffl "NUMERO" 

230 PRINTffLN 
240 PRINTffl /TECHA" 

250 PRINTffl r F$ 

260 PRINTffl /'CANTIDAD 1 ' 

270 PRINTffl JÜTAL+ 1200 

Los datos enviados a un archivo pue- 
den formatearse utilizando la opción 



USING, al igual que en el caso de la pre- 
sentación en pantalla. En este último 
ejemplo se podría limitar el espacio ocu- 
pado en el archivo de la siguiente forma. 

200 OPEN r '0",#1, "LISTA" 

210 PRINTffl /'LISTA DE DATOS" 

220 PRINTffl /'NUMERO" 

230 PRINTffl .USING "ffff# r ';N 
240 PRINTffl /TECHA" 

250 PRINTffl, USING " "FS 
260 PRINTffl /'CANTIDAD" 

270 PRINTffl, USING "ffffffffffff,.#"; TGTAL+12QQ 



Cierre del archivo 

Una vez realizadas las operaciones 
pertinentes, es conveniente cerrar de 
nuevo el archivo. El cierre de un archi- 
vo deja libre el número de archivo ocu- 
pado por éste. En consecuencia, se pue- 
den abrir dos archivos con el mismo nú- 
mero, uno después de cerrar el otro. No 
obstante, el principal cometido del cie- 
rre de un archivo secuencial es marcar 
el final del mismo. 

Cuando se graba un archivo en case- 
te se añaden unos identificadores a la 
información propia del archivo. Entre 
estos indicadores está la cabecera, si- 
tuada al principio, que guarda el nom- 
bre deJ archivo. La cabecera se genera 
a partir de la ejecución de! comando 
OPEN 

Otro indicador es la marca de fin de 
archivo. Esta marca indica que el archi- 
vo no contiene más información. Con 
ella se evita el seguir leyendo más allá 
de los límites de un archivo. 

El comando de cierre de un archivo es 
GLOSE. Para ordenar el cierre sólo es 
necesario conocer el número asociado 
al archivo. Como ya se sabe, en la aper- 




Cierra el archivó cuyo número figura en su argumento. 

Formato: CL0SE[#]<nú mero> 

Ejemplos: 20 CLOSEffl 
70 GLOSE 2 



tura se aportan todos los datos ¡dentifi- 
cativos del archivo y se otorga a éste un 
número. Es precisamente ese número el 
que definirá el archivo a cerrar. La for- 
mulación de este comando es, pues, la 
que se índica, 

(número de línea) CLOSE#<número> 

De esta forma, para cerrar cualquiera 
de los archivos creados en el apartado 
anterior, bastaría con introducir la si- 
guiente orden: 

CLOSEffl 

El tratamiento de archivos por parte 
del ordenador no es tan sencillo como 
aparece a ojos del usuario. El ordenador 
ha de mandar la información a la velo- 
cidad adecuada para su grabación en la 
unidad de almacenamiento. Esta veloci- 
dad es generalmente inferior a la velo- 
cidad de operación del ordenador, por lo 
que ha de ser adaptada. Para ello, crea 
una zona de memoria, denominada 
"buffer", en la que almacena los datos 
a transmitir; estos datos se van mandan- 
do a la velocidad requerida por la uni- 
dad de almacenamiento. El buffer se 
crea por efecto del correspondiente co- 
mando de apertura OPEN. En realidad, 
el número asignado a cada archivo 
abierto no es más que el fdentificador 
del buffer asociado al mismo. 

Cuando se ejecuta un comando GLO- 
SE, al tiempo de cerrar el archivo co- 
rrespondiente, se libera la zona de me- 
moria reservada a su buffer. Por este 
motivo es importante cerrar los archivos 
una vez que han terminado las opera- 
ciones con los mismos. 



Lectura del archivo 

Hemos visto que la escritura en un ar- 
chivo secuencial es análoga a la escri- 
tura en pantalla. Consecuentemente, la 
lectura se asemeja en gran medida a la 
recogida de información a partir de! te- 
clado. 

La lectura de datos almacenados en 
un archivo secuencial se realiza por me- 
dio del comando INPUT#. Su formula- 
ción es la misma que la del INPUT nor- 
mal, con la adición def número de ar- 
chivo a leer 
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(número de línea) [NPUT#<número<, 
<var.1>[,<var*2<..] 

Como es natural, el archivo ha de es- 
tar abierto previamente y con la opción 
de lectura ("I"). Dadas las característi- 
cas de las cintas de casete, es imposi- 
ble abrir en ellas más de un archivo al 
tiempo (la cabeza no puede posicionar- 
se en dos lugares a la vez). Tampoco es 
posible leer y escribir en un mismo ar- 
chivo. Estas posibilidades quedan reser- 
vadas para cuando se dispone de varias 
unidades de casete o de una unidad de 
disco. 

Para la lectura de un archivo en ca- 
sete hay que situar la cinta en el punto 
adecuado (en cualquier posición ante- 
rior al comienzo del archivo). Hecho 
esto, se debe abrir el archivo o proceder 
a su lectura. A título de ejemplo, vea- 
mos los comandos capaces de leer la 
matriz almacenada en el apartado ante- 
rior. 

1000 OREN T'JI r 'C:MATRIZA' J 
1010 FOR 1=1 TO 100 
1020 INPUT#1,B[l) 

1030 NEXT I 
1040 GLOSE# 1 

Cuando se trata de archivos, el co- 
mando IMPUT no permite la opción de 
presentación de un mensaje. Así pues, 
la orden INPUTtfl "DATO", D produci- 
ría un error de tipo sintáctico. 

Como se ha visto en el anterior ejem- 
plo, el empleo de INPUT# es tan senci- 
llo como el de PRINT#, el único cuidado 
está en no olvidar la apertura y cierre 
del archivo. Para completar la serie de 
ejemplos veamos cómo se realizaría la 
lectura del otro archivo creado en un 
apartado precedente: 

2000 OREN TAV'USTA" 

2010 INPUT#1 ( CABE$ 

2020 INPUTflIAÍ 
2030 INPUT#1,NUM 
2040 INPUT#IB$ 

2050 INPUT#1,DIA$ 

2060 INPUT#1,C$ 

2070 INPUT#1, TOTAL 

Como se observa, no es preciso que 
[os nombres de las variables coincidan 
con los que se utilizaron al crear el ar- 
chivo. Sin embargo, los tipos de las va- 
riables sí deben estar en corresponden- 
cia. 



OPEN "O’V&I, “PEREZ 



MARCA de PRINCIPIO 
de ARCHIVO. 



1 



ARCHIVO 

"PEREZ' 




Los comandos de 
apertura y cierre sirven 
también para situar las 
marcas de principio y fin 
de fichero, con lo que 
éste queda perfectamente 
delimitado , 



THE 

END 



GLOSE «1 



MARCA de FIN de 
f ARCHIVO 



Archivos como bases de datos 



En el capítulo anterior se describió un 
ejemplo consistente en el diseño de una 
base de datos. El programa así creado 
puede resultar de gran utilidad; sin em- 
bargo, es preciso introducir de nuevo los 
datos cada vez que se desee utilizar el 
programa. Para solventar esta situación 
puede hacerse uso de los archivos re- 
cién presentados. 

En aquel ejemplo se utilizaba una ma- 
triz de 100*10 para almacenar los da- 



tos. El paso de esta matriz desde la me- 
moria central al casete es muy sencillo. 
Al tratarse de una matriz de dos dimen- 
siones, son necesarios dos bucles ani- 
dados. Una primera aproximación a la 
rutina de almacenamiento la constitu- 
yen las siguientes líneas. 

4110 OPEN "OTífU'BASE” 

4120 FOR REG=t T0 100 
4130 FOR CAM=1 T0 10 
4140 PRINT# 1 r A(REG,CAM) 

4150 NEXT CAM 
4160 NEXT REG 
4170 GLOSE#! 



-PRINT “HOLA 



1 1 





-OPEN ''CT'jttl, “ARCHI “ 
— PRINTttl, "HOLA" 



Para escribir en un archivo secuencia! se actúa de forma pareada a la escritura en 
pantalla. El comando utilizado a tal efecto es el conocido PRINT, 
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REG. 1 REG.2 





En el ejemplo del 
texto , los datos se 
ordenan por 
«registros», De esta 
forma es posible 
almacenar una matriz 
de dos dimensiones 
en un archivo 
secuencia I (de una 
dimensión). 



Los dos bucles harán que la matriz se 
grabe registro a registro. Dentro de cada 
registro se almacenan los campos por 
su orden. Aunque también es posible 
grabar Ja matriz en otro orden: por cam- 
pos dentro de los cuales los registros se 
mantengan ordenados. Para utilizar esta 
otra distribución basta con cambiar de 
sitio los bucles. 



archivos Esto es perfectamente posible 
ya que el comando OREN admite varia- 
bles en su argumento. De esta forma se 
puede elegir el nombre del archivo con 
entera libertad. 

4010 IMPUT "NOMBRE DEL ARCHIVÜ H, ;N$ 

4110 0PEN”0'^1,N$ 



4110 OREN ÍJ Q",#rBASE' r 
4120 FOR CAM=1 TO 10 
4130 FOR REGATO 100 
4140 PR I NT # 1 á A( R EG r € AM ) 

4150 NEXT REG 
4160 NEXT CAM 
4170 CL0SE#1 

El orden en que se almacenan los da- 
tos no importa, siempre que se emplee 
ese mismo orden a la hora de proceder 
a su lectura. En lodo caso, y dado que 
es el más intuitivo, vamos a poner en 
práctica el primer método. 

En las líneas escritas hasta ahora se 
realiza correctamente el almacena- 
miento de datos. No obstante, el archi- 
vo en el que se guardan es siempre el 
mismo; "BASE", Lo más lógico sería po- 
der diferenciar distintos conjuntos de 
datos dando diferentes nombres a Jos 



En estas líneas se recoge el nombre 
y se abre el archivo cuyo nombre coin- 
cide con el indicado. La longitud def 
nombre vendrá limitada por el equipo en 
cuestión, y más concretamente por el 
sistema operativo, La longitud de los 
nombres de archivo suele situarse alre- 
dedor de los ocho caracteres. Cuando se 
trabaja con unidad de disco depende del 
sistema operativo empleado, los habi- 
tuales CP/M y MS-DOS utilizan ocho 
caracteres más tres de «extensión». 

Con la posibilidad de elegir el nombre 
del archivo se abren otras ventajas in- 
teresantes, Por ejemplo, si usted guar- 
da los archivos de la base de datos en 
una cinta donde residan más tipos de ar- 
chivos, querrá poder distinguirlos. Para 
diferenciar los archivos creados por la 




Escribe un dato en el archivo especificado. 

Formato: PRJNT# <número> ( <dato> [;<dato>,.,] 
Ejemplos: 20 PflINT #1, "PERICO" 

70 PRINT #2, A+B 



base de datos puede concluir su nom- 
bre con algunas letras características, 
por ejemplo BD (Base de Datos). Ello se 
consigue con el tratamiento del dato de 
cadena introducido en la línea 4010. 

4010 INPUT "NOMBRE DEL ARCHIVOTE 
4020 LETN$=N$+7BD H ' 

4110 OREN ”(r,#1,N$ 



En el proceso de la línea 4020 (adi- 
ción de ios caracteres V", "B'y "D") 
puede rebasarse la longitud máxima es- 
pecificada para el nombre. Si el (imite 
está en ocho caracteres, habrá que ele- 
gir cinco de los aportados por eí usua- 
rio, que sumados a los tres añadidos, 
hacen en total ocho. Esta sería la nueva 
línea: 

4020 LEÍ N$=LEFTS(N$5)+7BD' r 




En una base de datos —como es el 
caso del ejemplo propuesto en el 
capítulo anterior— resulta 
fundamental la posibilidad de 
emplear archivos residentes en una 
unidad de almacenamiento externo. 

Con lo expuesto, la rutina de escritu- 
ra del archivo presentará un nuevo as- 
pecto: 

4000 REM 

4001 REM GRABACION — — 

4002 REM 

4010 INPUT "NOMBRE DEL ARCHIV0 J ';N$ 

4020 LEI N$-LEFT$N$6j+7BD" 

4110 0PEN r, 0"#1 t M$ 

4120 FOR REG=1 TO 100 
4130 FOR CAM=1 TO 10 
4140 PRINTü1 h A(REG,CAM) 

4150 NEXT CAM 
4160 NEXT REG 
4170 CIOSE# 1 
4180 RETURN 



20 






¿Qué es y qué no es un 
ordenador personal? 



Cualquier ordenador, sea cual fuere su tamaño y 
potencia, es un producto de la síntesis de dos elementos 
complementarios: un soporte físico o circuito 
electrónico, el «hardware», y una programación o 
conjunto de instrucciones, datos t programas,.., el 
«software». Ambos elementos se conjugan en un 
sistema para el tratamiento de información u ordenador. 
Aquí aparece la distinción esencial entre el ordenador y 
otras máquinas capaces sólo de resolver un 
determinado número de tareas específicas (una 
ca leu I adora, por ejemplo]. El ordenador es un sistema 
cuya funcionalidad no está predefinida por su estructura 
física, sino que puede ser «instruido* por el usuario para 
realizar una u otra función introduciéndole un programa 
al efecto. 

Una calculadora convencional es capaz de realizar 
ciertas operaciones matemáticas (suma, resta, 
multiplicación, división...), pero única y exclusivamente 
esas operaciones preestablecidas Por su parte, el 
ordenador posee un campo de aplicación totalmente 
versátil, definible en cualquier instante por medio del 
adecuado programa. Puede realizar cálculos complejos 
en los que intervengan secuencias de operaciones, 
comparaciones y decisiones, y su efectividad no se 
limita a los cálculos matemáticos, sino que se extiende 
a cualquier aplicación definible como tratamiento de 
información sea ésta de naturaleza simplemente 
numérica o alfanumérica, 

La diferencia del ordenador con otras máquinas más 
sofisticadas y que, en muchos casos, incorporan en su 
interior un microprocesador, es ya más sutil. Las 
consolas de video-juegos constituyen un perfecto 




ejemplo de equipo dotado de una unidad central de 
proceso integrada (un microprocesador), y capaz de 
ejecutar un programa (el cartucho de juego]. En este 
caso, la distinción básica reside en que tales máquinas 
siguen encerradas dentro de un marco de aplicación 
específico: la ejecución de juegos sobre una pantalla. 

No están abiertas a lenguajes de programación que 
versatilicen sus posibilidades, y tampoco disponen de un 
sistema operativo que ponga toda su potencialidad en 
manos del usuario. 

Una vez delimitado el terreno de los ordenadores o 
máquinas programadles para el tratamiento de la 
información, liega el momento de caracterizar af 
ordenador personal. 



No hay que olvidar a los grandes ordenadores y tampoco 
a ios miniordenadores, e incluso a los microordenadores 
evolucionados. Aunque cada vez son mayores fas 
intersecciones entre tas diversas categorías de 
ordenadores, puede enmarcarse al ordenador personal 
en una zona propia. Dentro de un ámbito delimitado por 
su definición más amplia: máquina programare basada 
en microprocesador, destinada al tratamiento de 
información y orientada al usuario individual: con una 
gama de periféricos, sistemas operativos, lenguajes de 
programación y programas de aplicación concebidos 
específicamente para su explotación. 




CALCULADORA 



SUPER- 

OROENADQR 



VJ DEC JUEGOS 



Lectura de los archivos de datos 

La contrapartida a la grabación es la 
lectura de los archivos. La zona de lec- 
tura de los datos es idéntica a la de la 
escritura, sin más que cambiar las órde- 
nes PRINT por INPUT Esto es: 



drá que construir el nombre de la mis- 
ma forma que lo hacía la de escritura. 
La única diferencia reside en la presen- 
cia del carácter ' T f que indica que se 
trata de un archivo de entrada. 

5010 INPUT "NOMBRE DEL ARCHIVO", N$ 



5020 LET N$=LEFT$(N$5)+7BD r ' 

5110 OREN T,#1,N$ 

Por último, han de introducirse las lí- 
neas de cierre del archivo y retorno al 
programa principal. Estas dos líneas sí 
son exactamente iguales a las emplea- 
das en la rutina anterior. 



5120 FOR REG=1 TO 100 
5130 FOR CAM=1 T0 10 
5140 INPUT#1,A(REG,CAM] 
5150 NEXTCAM 
5160 NEXTREG 




Lee el siguiente dato almacenado en el archivo que se indica en su argumento. 



No hay que olvidar que el orden de 
lectura debe ser congruente con el de 
escritura. Si usted lo alteró en el apar- 
tado anterior, debe tomar la misma me- 
dida en éste. La zona de apertura ten- 



Formato: I WPUTKn ú m ero>,<var>[,<va r>. . ,] 

Ejemplos: 20 1NPUT#1,A$ 

70 IMPUTO, DATO 
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glose# i 

: :C -ETURN 



Así pues, siguiendo ¡os pasos comen- 
tados, se llega a la consecución de la ru- 
: de lectura. Esta rutina completa y 

con los REM de identificación es la que 
ssgue: 

5000 REM 

5001 REM — LECTURA — 

5002 REM r 

5010 INPUT "NOMBRE DEL ARCHIVO' r ;N$ 

5020 LEÍ ^LEFT$N$5)+ VBD' r 
5110 OREN T r #1,N$ 

5120 F0R RE6=1 T0 100 
5130 F0R CAM=1 T0 10 
5140 INPUTffl r A(REG,CAM| 

5150 NEXTCAM 
5160 NEXTREG 
5170 CIOSE# 1 
5180 RETUR N 



El último detalle 




Las dos nuevas opciones 
introducidas han de verse 
contempladas en el menú. Unos 
figeros retoques en la 
correspondiente rutina 
servirán a tal propósito . 



Para el correcto funcionamiento de 
estas rutinas con el programa analizado 
en el capítulo anterior, quedan por aña- 
dir unos retoques al programa originaL 
En primer lugar, las opciones de lectura 
y escritura del archivo deben estar con- 
templadas en el menú inicial. Para ello, 
habrá que introducir nuevas líneas que 
escríban sus nombres en pantalla. 

285 LOCATE 16,5 

288 PRINT "4 GRABACION DEL ARCHIVO" 



290 LOCATE 18 r 5 

295 PRINT "5... LECTURA DE ARCHIVO" 

Con estas líneas se obtiene la presen- 
tación en pantalla de ambas posibilida- 
des. Pero con todo esto no basta, tam- 
bién es necesario contemplar dichas op- 
ciones en el salto a las subrutinas; esto 
es: hay que cambiar la línea del 
OM/GOSUB. Como las nuevas rutinas 
se encuentran localizadas a partir de las 
líneas 4000 y 5000 r la modificación es 
la siguiente: 



330 ON NG0SUB 1000,2000,3000,40003000 



Como último retoque hay que modifi- 
car ligeramente la línea 310, que con- 
tiene el comando INPUT. La línea origi- 
nal muestra el siguiente aspecto. 

310 INPUT "ELJA OPCION 11 -3)" N$ 

Esta línea, después de la modifica- 
ción, debe indicar que existen cinco po- 
sibles opciones. Así pues, la nueva lí- 
nea quedará como figura a continua- 
ción. 

310 INPUT "EDA OPCION (1-5)", N$ 

Una vez incluidas las modificaciones 
señaladas no encontraremos ante la si- 
guiente rutina: 

199 REM 

200 REM — MENU 

201 REM* 

210 LOCATE 5,10 

220 PRINT "MENU" 

230 LOCATE 10,5 

240 PRINT "1. ..ENTRADA DE DATOS" 

250 LOCATE 123 

260 PRINT "2. EDICION DE DATOS" 

270 LOCATE 143 

280 PRINT "3 VISUALIZARON DE DATOS" 

285 LOCATE 163 

288 PRINT "4 ...GRABACION DEL ARCHIVO" 

290 LOCATE 183 

295 PRINT "5 LECTURA DEL ARCHIVO" 

300 LOCATE 203 

310 INPUT "EDA OPCION (1-5)"N$ 

320 N=VAL(N$) 

330 0N N GOSUB 1000,2000,3000,40003000 
340 GOTO 200 



¿NOMBRE del ARCHIVO? 



TELEFONOS 




LETN$ .=LEFT(N$,5) +7BD" 



TELEF/BD 



TELEFPp/BD 



El nombre del archivo es modificado, haciendo que sus tres 
últimos caracteres sean BD. Con ello , se ve facilitada la identificación 
de los archivos creados por medio de este programa. 



Introduciendo los cambios, que se re- 
sumen en las rutinas de lectura y escri- 
tura del archivo y la de menú, el progra- 
ma del capítulo anterior resulta verda- 
deramente operativo. En realidad, en 
una base de datos es fundamental man- 
tener los archivos en un dispositivo de 
almacenamiento externo. 

En la apertura de los archivos se ha 
prescindido de la especificación de dis- 
positivo. Tal como se ha programado se 
utilizará el dispositivo que el ordenador 
tome «por defecto»; en la mayor parte de 
los casos, éste corresponde a la unidad 
de casete. Para cambiar de dispositivo 
bastaría con indicarlo en la apertura de 
los archivos. 
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TABLA DE CONVERSION 


Ordenador 


Apertura 


Cierre 


Escritura 


Lectura 


Soporte 

de 

memoria 


OPEN "<modo>", 
#<n.O,<nom> 


OPEN <nom> FOR 
<MAS<n.2> 


CLOSE#<n.a> 


PRINT#<n.s>, 

<dato> 


INPUT#<n,->, 

<var> 


AMSTRAD 


OPENIN/ 
OPENOUT (8) 


- 


CLOSEIN/ 
CLOSEOUT (8) 


PRINT #9,<dato> 


INPUT#9, <dato> 


Disco/Casete 


APPLE 11 
(APPLESOFT) 


OPEN<nombre>(1) 


- 


GLOSE 

<nombre> 


WRITE <nombre> 
(2) 


READ <nombre> 
(2| 


Disco 


APR1COT 

(M-BASIC) 


OPEN "<modo>", 
#<n. 9 >,<nom> 


OPEN <nom> FOR 
<m>AS<n. Q > 


CL0SE#<n. 8 > 


PRINT#<n.s>, 

<dato> 


INPÜTKn^ 

<var> 


Disco 


ATARI 


OPEN#<n.s>, 
<modo>.<nom> (3) 


- 


CLOSE#<n.-> 


PRINT#<nS>, 

<dato> 


INPUT#<n. er > í 

<var> 


Casete 


CBM 64 


OPEN "<n,3>" 
1,<modoX;nom> 


- 


CLOSE#<n.í> 


PRINT#<n.s> f 

<dato> 


INPUT#<n£>, 

<var> 


Casete 


DRAGON 


OPEN XmodoX, 
#“1 r <nom> 


- 


CLOSE#-1 


PRINT#- 1, <dato> 


INPUT#- 1,<var> 


Casete 


EQUIPOS 

MSX 


- 


OPEN <nom> FOR 

<m>AS<n.5> 


CLOSEKn.^ 


PRINT#<n. 5 >, 

<dato> 


INPUTKnA>, 

<var> 


Casete 


HP-150 


OPEN XmodoX, 
#<n. g >,<nom> 


OPEN <nom> FOR 
<m>AS<n. 8 > 


CLÜSEKn,^ 


PRINT#<n.*>, 

<dato> 


INPUT#<n,°>, 

<var> 


Disco 


IBM PC 


OPEN "<modo>",# 
<n. 9 >,<nom> 


OPEN <nom> FOR 

<m>AS<n. s > 


CLOSE#<n.í> 


PRINT#<n,s>, 

<dato> 


INPUTÍKn f S>, 

<var> 


Disco 


MPF 


— 


- 


- 




- 


- 


NCR DM-V 
(MS-BASIC) 


OPEN Xmodo>" 
#<n. e ><nom> 


- 


CLOSE#<n,5> 


PRINT#<n. 9 >, 

<dato> 


INPUTKn.fi>, 

<var> 


Disco 


NEW BRAIN 


OPEN <modo>,# 
<n.^> H 1 H <nom> 


- 


CLOSE#<n.s> 


PRINT#<n.5>, 

<dato> 


INPUT#<n.«>, 

<var> 


Casete 


ORIC 




- 




- 


- 


- 


SHARP MZ-700 
(MZ-BASIC) 


— 


- 


- 


— 


- 


— 


SINCLAIR QL 


OPENKn.5>, 
<nom> (6) 


- 


CLOSE#<n.^> 


PRINT#<n. 8 >, 

<dalo> 


INPUTKn.s>, 

<var> 


Microdrive 


SPECTRAVIDEO 




OPEN <nom> FOR 
<m>AS<n.-> 


CLQSE#<n.s> 


PRINT#<n 

<dato> 


INPUT#<n«>, 

<var> 


Casete 


ZX-SPECTRUM 


- 


- 


— 


SAVE <nom> 
DATA <Array> (7) 


LOAD <nom> 
DATA <Array> (7) 


Casete 



Las formulaciones reflejadas en la tabla para cada ordenador, corresponden al caso del soporte de memoria que se especifica en la columna correspondiente. 

(1) En Apple, los comandos de manejos de archivos se introducen como cadenas de caracteres, precedidas de un CTRL-D, dentro de instrucciones PRINT, Por ejemplo: 
10 D$=" ":REM CTRL-D 

20 PRIMT D$"GPEN DATOS" 

(2) Los comandos WRITE y READ sirven para que los siguientes PRINT o INPUT no actúen con la pantalla y el teciado, sino con el archivo indicado, 

(3) En la zona <modo> se utilizan los números 4 para entrada y 8 para salida de datos. 

(4) El modo se especifica como 0 (lectura) ó 1 (escritura) 

(5) En <modo> se emplea IM en lugar de T y OUT en lugar de TT. El número 1 indica el primer conector de casete; se puede utilizar el segundo poniendo un 2, 

(6) El nombre de archivo en mrcrodrive debe tener la forma MD^n.^Xnombre^ siendo <n. g > el número de la unidad de mocrodrive. Por ejemplo, MDV1 -ARCHI. 

(7) Se utilizan para la grabación y lectura de ARRAYS en casete. 

|8) Para más información cónsul! 
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Operadores lógicos 

En BASIC existe un tipo de dato, denominado «lógico», 
cuya presencia es harto frecuente en el argumento del 
comando IF, En un capítulo precedente se vio que este 
comando era capaz de evaluar condiciones, entregando 
un resultado que podía ser «verdadero» o «falso». Pues 
bien, los valores que puede adoptar un dato de tipo 
lógico son precisamente los de «verdadero* y «falso». 

Los datos lógicos se almacenan en el ordenador a modo 
de datos numéricos. Por regla general, se asocia al 
valor de «cierto» el dato numérico -1 y al de «falso» el 0. 
De esta forma se hace posible el almacenamiento de un 
valor lógico en el seno de una variable numérica 
normal 



( ) PARENTESIS 



SIGNO 

MENOS 



* T EXPQNENCIACIGN 



MULTIPLICACION 
Y DIVISION 



+ - SUMA Y RESTA 



= <> OPERADORES 
<o<> DE RELACION 

NGT COMPLEMENTO LOGICO 



AND Y LOGICO 



OR O LOGICO 



XOR G-EXCLUSIVO 



Jerarquía de ¡as operaciones 
aritméticas, lógicas y de relación 
programadles en BASIC. 




Los datos lógicos se obtienen a partir de la evaluación 
de condiciones, o como resultado de ciertas funciones, y 
su empleo más común se encuentra en el control del 
flujo de ejecución {habitualmente a través de un 
comando IF). En todo caso, el uso de datos lógicos no se 
limita a este cometido; también se puede operar con 
datos de este tipo, de forma parecida a la operación con 
datos numéricos o alfanuméricos. 

Así pues, dos o más datos lógicos puden ser agrupados 
para producir un resultado también de tipo lógico. Para 
entender el significado de los operadores lógicos es 
preciso introducir algunos conceptos generales de 
lógica. 

Tras evaluar una proposición puede traducirse que la 
misma es «verdadera» o «falsa». Por proposiciones se 
entiende cualquier tipo de expresión que afirma un 
hecho. Por ejemplo, «Madrid es la capital de Italia» es 
una proposición falsa. 

Como ya se ha indicado, pueden agruparse mas de una 
proposición sencilla para obtener una proposición 
compuesta. Así: «Madrid es la capital de Italia o Madrid 
es la capital de España» es una proposición compuesta 
por las simples: «Madrid es Ja capital de Italia» y 
«Madrid es la capital de España». En este caso, el nexo 
de unión de ambas se materializa en la palabra «o». La 
proposición compuesta puede ser evaluada a partir de! 
resultado de las simples. En el ejemplo, se tiene una 
proposición falsa y otra verdadera. Intuitivamente, se 
deduce que fa proposición compuesta será verdadera 
cuando lo sea una de las simples (cuando lo sea la 
primera o lo sea la segunda!, Es decir, basta que una de 
ellas sea cierta para que el total sea verdadero. Ello se 
debe al uso de la conjunción «o». Por el contrario, si se 
unen las proposiciones con la conjunción «y» la cosa es 
bien distinta. La unión por medio de «y» determina que 
la veracidad de ia proposición compuesta tiene lugar 
únicamente cuando ambas son ciertas {cuando lo es la 
primera y la segunda). Generalizando, se puede decir 
que las palabras o e y son dos operadores lógicos, 




uno Sin 

La combinación de condiciones mediante operadores lógicos permite crear 
estructuras de decisión evolucionadas f definiendo condiciones múltiples en 
una sola linea de programa. 




Para identificar con claridad el resultado de cada uno de 
estos operadores, se hace uso de las denominadas 
tablas de verdad. 

Una tabla de verdad no es más que la representación de 
los resultados de cada operador para todas las 
combinaciones posibles de sus operarios, A modo de 
ejemplo, junto al texto se incluyen las tablas de verdad 
de los comentados operadores lógicos. En ellas se 
reflejan los resultados de operar los valores de entrada 
situados en las dos primeras columnas. 

Existe un tercer operador lógico que corresponde a 
«negación». Negar una proposición supone invertir su 
valor lógico: la negación de «hoy es jueves» sera, pues, 
«hoy no es jueves». A fe vista del ejemplo se observan 
dos cosas: el operador «no» actúa sobre un único 
operando, y su función es la de cambiar verdadero por 
falso y viceversa. Su tabla de verdad coincide con la que 
parece al margen, 

Los operadores lógicos del BASIC se formulan 
recurriendo a la traducción inglesa de las mismas 
palabras españolas: AND (y), OR {o) y NOT (no). Por lo 
demás, funcionan tal y como se ha descrito más arriba. 
El resultado de una operación íógica será un dato lógico 
y, por lo tamo, adecuado para el uso en el argumento 
de un comando IF. 

Veamos a continuación un ejemplo de su uso dentro de 
un programa BASIC. El objetivo del programa es mostrar 
un mensaje de error cuando sea tecleado un número 
comprendido entre 10 y 20. El fragmento de programa 
que realiza tal acción es el siguiente: 

100 IMPUTA 

1 10 IF |A<20) AMD (A> 10) THEN PRINT 'ESE 
NUMERO NOVALE" 

En el argumento se ha formulado una proposición 
compuesta por A<20 y A>1G. Como en este caso ambas 
condiciones se han unido por medio del operador AND 
(y), la proposición conjunta sólo será verdadera cuando 
se cumplan los dos términos: A menor que 20 y mayor 
que 10. 

Ai igual que ocurre con Jos operadores aritméticos (+, 

*, etc,), los operadores lógicos pueden encadenarse para 
construir expresiones complejas. Por ejemplo, si a los 
números erróneos del ejemplo anterior se desean unir 
también los comprendidos entre 50 y 80, bastaría con 
introducir lo siguiente: 

100 IMPUTA 

1 10 IF (A<20 AND A>10) OR (A<30 AND A>50| THEN 
PRINT "ESE NUMERO NO VALE" 

En este segundo ejemplo se han utilizado los resultados 
de los dos AND como opera ndos de la relación OR. Con 
ello se consigue la visualizaron del mensaje cuando se 
cumpla la primera o la segunda de las condiciones. 
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Archivos en 
BASIC (II) 



Uso eficiente de los 
archivos secuenciales 




PRDGfWKIR 



La comuni- 
cación entre 
el programa 
y los 

periféricos 
puede 
establecerse 
a modo de 
flujo 

secuencial 
de datos. 

Ello hace 
que los 
periféricos 
sean 

manipulados 
como si se 
tratara de 
archivos 
secuenciales. 



■ n un capítulo pre- 
cedente se intro- 
dujo el concepto 
de archivo y se se- 
ñalaron las princi- 
pales características de esta estructura 
de almacenamiento. En aquella ocasión 
se estudiaron los comandos básicos 
destinados al tratamiento de archivos 
secuenciales. El objeto de este capítulo 
es profundizar en el tema, tratando de 
obtener un mayor partido dei uso de 
este tipo de archivos. Para ello, se pre- 
sentarán las restantes herramientas al 
efecto que aporta el lenguaje BASIC. 



Variables de control 

Antes de seguir adelante es conve- 
niente repasar la filosofía del tratamien- 
to y manipulación de archivos. Desde el 
punto de vista del programador, existen 
tres etapas básicas en el trabajo con ar- 
chivos. Estas se identifican como: aper- 
tura, consulta y cierre. Las operaciones 
de apertura y cierre se efectúen por me- 
dio de los comandos OREN y GLOSE, 
respectivamente. 

En cuanto a la consulta, ésta puede 
conducir a la adición o recuperación de 
datos. La dirección de flujo de datos, ya 
sea entrada (desde el archivo) o salida 
{hacia el mismo), ha de ser indicada en 
la propia instrucción de apertura. Dicho 
flujo se controla empleando los coman- 
dos PRINT# (salida) e INPUT# (entrada). 

Un ejemplo práctico del uso de un ar- 
chivo secuencial consiste en el almace- 
namiento de una matriz. 

100 OPEN "OI "MATRIZ" 

110 FQRMTQ20 
120 PRINT# 

130 NEXTI 
140 CL0SE//1 

Para recuperar los datos es suficiente 
con formular la rutina inversa. Esto es: 
sustituir el comando PRINT# por INPUT# 
y cambiar el modo de apertura para que 
se autorice la entrada de datos. La ruti- 
na de lectura del archivo recién creado 
será, pues, la siguiente: 

200 open x#rMATñr 



210 FGRMT0 20 
220 PRINT# 1 r B(l) 
230 NEXT I 
240 CLOSEfll 



El proceso no reviste mayor complica- 
ción ya que, en este caso, el tamaño de 
la matriz es conocido. El problema apa- 
rece cuando se lee un archivo del que 
se desconoce la longitud. Si el archivo 
guarda un total de 10 datos, se produ- 
cirá un error a! intentar recuperar el un- 
décimo. Ese error hará que se detenga 
la ejecución, con los inconvenientes que 
ello conlleva. 

Así pues, lo más acertado es tener 
una indicación de la longitud del archi- 
vo que se está tratando. Esta indicación 
llega de la mano de una nueva función 
BASIC. Se trata de LOF (Length Of File 
“longitud del archivo) que proporciona 
e! número de bytes de que consta un de- 
terminado archivo. LOF admite un dato 
de entrada en su argumento que indica 
el archivo del que se desea averiguar la 
longitud; éste ha de corresponder con el 
número de identificación especificado 
en la apertura del fichero. Véase un 
ejemplo. 



170 OPEN TJV'ARCHIV" 
180 L=LGF(1) 



En el ejemplo se almacena dicha lon- 
gitud en ía variable L. El número iden- 
tif ¡cativo del archivo (en este caso el 1) 
es el que figura en el argumento de LOF. 
Tras la ejecución de estas líneas, la va- 
riable L pasa a memorízar el número de 
bytes de que consta el archivo ' AR- 
CHIVA 

Sin embargo, esta medida no es siem- 
pre la más apropiada. También se pue- 
de calcular el número de datos conteni- 
dos en un archivo a partir del número 
de bytes del mismo. Pero sólo se podrá 
hacer de forma sencilla si todos los da- 
tos almacenados son del mismo tipo. 

Existe otra función que resulta más 
útil para delimitar la longitud de un ar- 
chivo; una función lógica que toma el 
valor CIERTO cuando se alcanza el fin 
del archivo. La palabra del BASIC aso- 
ciada a la referida función es EOF (End 
Of File =f in de archivo). La formulación 
de EOF es análoga a la de LOF. Veamos 
un ejemplo en el que se emplea esta úl- 
tima función: 
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Proporciona el numero de bytes de que consta un determinado archivo. 

Formato: IGF (Cnumero de arctiivo>) 

Ejemplos; 10 IET LGNG=L0F[2j 
50 PRINT LOF(1)/8 



200 OREN TJV'DATOS" 
210 1=1 

220 iFEOF(1)IHEM GOTO 260 
230 !NPUT#1,B(I] 

240 1=1+1 
250 GOTO 220 
260 CIOSE# 1 



La línea 250 cierra el bucle, permi- 
tiendo la lectura del siguiente dato; sin 
embargo, la clave de la rutina se .en- 
cuentra en la línea 220. El comando IF 
contenido en la misma proporciona el 
punto de salida del bucle. Esta se pro- 
ducirá cuando EOF(1 ) sea cierto; esto es: 
cuando se haya alcanzado el fin del ar- 
chivo. De esta forma se evita la lectura 
del siguiente dato (dato, por otra parte, 
inexistente). 



En la rutina se emplea un bucle, con- 
trolado por la variable l r para leer los da- 
tos del archivo. La variable de control se 
inicial iza al valor 1 en la línea 210. Tras 
recuperar un dato (línea 230) se incre- 
menta dicho contador. Esto hará que los 
datos leídos se almacenen en posicio- 
nes sucesivas de la matriz B. 



Delimitadores de datos 



En el apartado precedente se ha des- 
crito el método a seguir para averiguar 
la longitud de un archivo Como ya se 
comentó en el primero de los capítulos 





TODO USO 


> 






© 

<CR> 

RETORNO 
OE CARRO 








© 

% 






y 

COMA 







CADENAS 








© 

// 

COMILLAS 








© 

// 

COMILLAS 






NUMEROS 



ESPACIO EN 
• BLANCO 



o 



SEPARADORES PARA ARCHIVOS 

I A la hora de almacenar datos en un archivo, entran en juego vanos tipos de 

separadores. Entre ellos están el retorno de carro y la coma. En el caso de trabajar 
con datos numéricos, se considera ai espacio en blanco como un separador más . 
mientras que al operar con cadenas hay que considerar el uso de las comillas. 



dedicados al tema de archivos, el propio 
ordenador se encarga de grabar una 
marca de fin de archivo tras el último 
dato. Sin embargo, todavía no se ha 
mencionado cómo se separan los datos 
entre sí. Ello va a depender de la forma 
en la que se hayan almacenado. 

Según lo explicado hasta ahora, la 
grabación de datos se efectúa por me- 
dio del comando PRINT#. Dicho coman- 
do actúa de forma análoga al encarga- 
do de la presentación de datos en pan- 
talla (PRINT, sin PRINT# seguido 
por un solo dato escribe dicho dato en 
el archivo añadiendo un carácter al fi- 
nal; carácter que equivale al de «retor- 
no de carro» que se introduce al escribir 
en pantalla. Si se utiliza más de un dato 
en su argumento, éstos deben separar- 
se por medio del signo punto y coma. Al 
igual que ocurre en la presentación en 
pantalla con PRINT, los datos se alma- 
cenan de forma contigua; sin ningún ca- 
rácter entre ellos. Esto hace que no sea 
posible identificar los límites de cada 
dato. A continuación se muestra un 
ejemplo de lo indicado. 



100 A$="IVIARr 
110 B$= rr CARMEN M 
120 PRIN#2,AP$ 



Esta secuencia de instrucciones al- 
macenaría en eí archivo número 2 lo si- 
guiente: 

MARICARMEN 

Si, posteriormente, se extraen los da- 
tos de ese mismo archivo, ambos datos 
se procesarían como sí de uno solo se 
tratase. Para distinguirlos es necesario 
introducir un separador entre ellos. 

Empleando un comando PRINT# por 
cada dato se incluye automáticamente 
el carácter de retomo de carro como se- 
parador. Incorporando tal propiedad al 
último ejemplo, éste quedaría como si- 
gue: 



26 









OPEN l/'SCRN:" 

Los comandos para tratamiento de 
archivos secuenciales permiten 
también la comunicación con otros 
periféricos , por ejemplo >, con la 
pantalla u órgano de visuatización. 



100 AS^MARI" 
110 BS-TARMEN" 
120 PRINT#2,A$ 
130 PRIMT#2,B$ 



Cuyo resultado en el archivo mostra- 
ría el siguiente aspecto: 

MARI§CARMEN 

Con el símbolo § se ha querido repre- 
sentar el carácter de retorno de carro. 

Así pues, el primer delimitador o se- 
parador de datos es el carácter de retor- 
no de carro. Este, como se ha visto, se 
introduce automáticamente al final de 
cada lista de datos. 

En todo caso, el carácter de retorno 
de carro no es el único separador per- 
mitido. También puede utilizarse como 
separador el carácter «coma». De esta 
forma será posible incluir varios datos 
en el argumento de PRINT#: 

100 Afc'WRr 
110 Br CARMEN" 

120 PRINT#2,A$7;B$ 

En esta ocasión, entre uno y otro dato 
se almacenará el carácter coma. En el 
archivo ello quedaría como sigue: 

MARI, CARMEN 



Al ser la coma un separador válido, 
ambos datos estarán perfectamente de- 
limitados. En consecuencia, la posterior 
ejecución de la instrucción: 

200 INPUTtf 2,T$P$ 

asignaría a las variables T$y P$ los va- 
lores MARI y CARMEN respectivamen- 
te. Pero esto no es todo. Cualquier coma 
será leída como delimitador de datos. In- 
cluso las comas que hayan sido introdu- 
cidas como parte de un dato. Así, el dato 
alfanumérico "PEREZ,JÜSE" será leído 
de un archivo como dos cadenas distin- 
tas. "PEREZ' 1 y "JOSE". 

Para que sea posible incluir el carác- 
ter coma en el interior de una cadena al- 
fanumérica se hace necesario delimitar 
ésta de otro modo. Puede recurrirse a un 
nuevo carácter separador: las comillas. 

AJ ejecutar un comando INPUT#, si 
éste encuentra como primer carácter a 
las comillas, tomará como límite del 
dato las siguientes comillas. Supónga- 
se, por ejemplo, que en el archivo se en- 
cuentra almacenada la siguiente serie 
de caracteres: 

"PEREZ, JOSE" 

Si se ejecuta, a continuación, el co- 
mando INPUT#1,T$, la variable aifanu- 
mérica T$ adoptará el valor PEREZ,JO- 
SE. 

Resumiendo, existen tres caracteres 
que sirven como delimitadores de datos 
alfanuméricos en el seno de un archivo 
secuencia!: el retorno de carro, la coma 
y las comillas. En el caso de datos nu- 
méricos se emplea un cuarto delimita- 
dor, el espacio en blanco. 



Empleo de los delimitadores 




información se materializa mediante 
los comandos PRINT# e INPUT# 



según se ordene una operación de 
escritura o lectura en el archivo. 

y el espacio en blanco, entre datos nu- 
méricos de poca longitud. 

Se ha visto ya la forma de intercalar 
un carácter coma. Para la grabación del 
carácter comillas la cosa se complica un 
poco más. Lo mejor en este caso es uti- 
lizar el código ASCII del referido carác- 
ter. Con ello, la grabación del dato aso- 
ciado al último ejemplo se efectuaría 
con la siguiente línea de programa: 

350 PR I NT#1 ,CHR$(34);'TEREZ, JO 
SE";CHR$(34)... 

En efecto, se ha utilizado la función 
CHR$para obtener el carácter comillas, 
carácter cuyo código ASCII suele coin- 
cidir con el número 34. 

Esta es una forma de intercalar defi- 
mítadores entre los datos a almacenar, 
aunque, no cabe duda que el método re- 
sulta ligeramente engorroso. 

En algunos dialectos BASIC se dispo- 
ne de un comando que inserta automá- 
ticamente los delimitadores adecuados. 
El mencionado comando se asocia a la 
palabra WRITE#, cuya formulación es 
similar a la del comando PRINT#. 



De los delimitadores anteriormente 
citados tan sólo dos se almacenan au- 
tomáticamente en el archivo: el retomo 
de carro, al final de una lista de datos. 



(Número de línea) WRITE# <número>, 
<dato1 >[,<dato2>...] 

El comando WRITE# inserta comas 




Adopta el valor lógico CIERTO cuando se alcanza el final de un archivo. 
Formato: EOF (<número de archivo>) 

Ejemplos: 20 1F E0F(1) THEN END 
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INPUT til, X$,Y$ 
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X$; HOLA 
Y$: LOLA 



El comando INPUT# loma como punto final 
de un dato a cualquier carácter separador 
válido. 



El comando UNE INPUT# sólo admite un separador de 
datos . El carácter de retorno de carro Por lo demás, incluye 
dicho carácter en la cadena leída. 



entre los datos que se van escribiendo 
en el archivo. Los datos de tipo alfanu- 
mérico se graban encerrados entre co- 
millas. Además, WRITE# proporciona un 
carácter de retorno de carro al final de 
cada lista de datos. En definitiva, este 
comando deja los datos perfectamente 
delimitados en el archivo. 

Al igual que PRINT#,WRITE# tiene un 
comando homólogo para la representa- 
ción en pantalla. Se trata de WRITE (sin 
el signo # al final). WRITE actúa en pan- 
talla de la misma forma que WRITE# en 
un archivo. Véase un ejemplo: 



PRIIMT "DOS Y DOS SON ", 

2+2 DOS Y DOS SON 4 
WRITE "DOS Y DOS SON ", 

2+2 "DOS Y DOS SON '\4 



En él se pone de manifiesto la clara 
diferencia que existe entre PRINT y WR1- 

TE. 

Para la escritura en un archivo se- 
cuencia! también se puede hacer uso de 
PRINT# con la opción USING. Esta op- 
ción permite definir el formato con el 
que van a ser grabados los datos. Su 
funcionamiento es totalmente análogo 



at de PRINT USING, al que ya se ha de- 
dicado un capítulo en esta obra. 

Por lo que respecta a la lectura de los 
datos contenidos en el archivo, es pre- 
ciso indicar el modo en el que ésta se 
efectúa. El comando utilizado hasta 
ahora se formula a partir de la palabra 
clave ÍNPUT#. Ya se ha indicado que 
este comando distingue varios delimita- 
dores de datos: 

— Datos numéricos: 

Espacio en blanco 
Coma 

Retorno de carro 

— Datos alfanuméricos: 

Coma 

Retorno de carro 
Comillas 

En el caso de las comillas, se toma 
como un solo dato todo lo encerrado en- 
tre dos de esos caracteres. 

Estos caracteres son precisamente los 
que emplea el comando INPUT# para 
identificar el final de un dato. De esta 



forma, el binomio WRITE#/INPUT# per- 
mite un fácil y eficiente manejo de los 
archivos secuenciales. 

El BASIC suele ofrecer aún otro co- 
mando dedicado a la recuperación de 
datos de un archivo secuencial; coman- 
do que admite como único delimitador 
el carácter de retorno de carro. Para su 
puesta en práctica se emplean las pala- 
bras UNE INPUT#, de acuerdo al forma- 
to que se expone a continuación. 

(Número de línea) UNE INPUT# 

<número>,<va Hable cadena> 

La ejecución de este comando asigna 
un valor a la variable de cadena espe- 
cificada; valor que corresponderá a la 
serie de caracteres que se lean del ar- 
chivo. En dicha serie de caracteres se 
toma el retorno de carro como único de- 
limitador. Es más, el propio carácter de 
retorno de carro se considerará como 
parte del dato. 

El comando UNE INPUT# deriva del 
comando análogo reservado para la lec- 




E acribe datos en un archivo introduciendo los separadores adecuados entre ellos, 

formato: WRITEXnúmero> H <datc>[;<datoX..] 

Ejemplos: 20 WRITE #1/ J PERIC0 rH 
70 WRITE #2, A+B 
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tura de datos introducidos mediante el 
teclado: UNE INPUT (como siempre, sin 

#)- 

Este último realiza la misma acción 
que el comentado LJNE INPUT#. La úni- 
ca diferencia entre ambos reside en el 
dispositivo del que se toman los datos. 
Así pues, UNE INPUT es equivalente al 
comando I NPUT, pero con la salvedad de 
que sólo admite variables de cadena y 
que toma el retorno de carro como un 
carácter más de la cadena (el último de 
la misma). 




Escribe datos en pantalla separándolos por comas; las cadenas se representan entre comillas. 
Formato: WRITE <dato1> [ r <dato2>...] 

Ejemplos: 20 WRITE B,A$ 

70 WRITE 'A- ,352 



Se pueden abrir canales para la co- 
municación con los siguientes periféri- 
cos: 



I ARCHIVO n 1 II 



Archivos y dispositivos asociados 

Todo lo concerniente a los archivos 
secuenciales se asocia, por regla gene- 
ral, al dispositivo de almacenamiento 
más habitual: el casete. Sin embargo, se 
pueden crear archivos secuenciales en 
otros periféricos. 

Los dos soportes más empleados para 
el almacenamiento de datos son las cin- 
tas de casete y los discos magnéticos. 
Al respecto, cabe añadir que el uso de 
archivos secuenciales almacenados en 
disco es idéntico al de los archivos en 
casete. 

Aparte de los archivos de almacena- 
miento de datos existe otro tipo de ar- 
chivos. Se trata de los archivos abiertos 
en otros dispositivos que no son propia- 
mente de almacenamiento. En realidad 
no se trata de archivos en el sentido es- 
tricto de la palabra; sino que más bien 
habría que definirlos como canales de 
comunicación con periféricos. Para la 
manipulación de estos canales se em- 
plean los mismos comandos que para el 
manejo de archivos secuenciales. Es por 
ello por lo que, a menudo, se identifican 
con los archivos reales. 



— Magnetófono de casetes. 

— Unidad de disco. 

— Pantalla. 

— Impresora, 

— Modem o red local. 

En la lista se han incluido las unida- 
des de almacenamiento externo (mag- 
netófono y unidad de disco), ya que la 
apertura de un archivo en ellas lleva im- 
plícita la comunicación a través de un 
canal. En el último lugar de la lista se 
ha mencionado dos modalidades de co- 
municación genérica. 

El modem es un dispositivo que per- 
mite la comunicación entre ordenadores 
distantes, haciendo uso de la red tele- 
fónica, Las redes locales son agrupacio- 
nes de ordenadores conectados entre sí. 
Por regla general, éstos comparten cier- 
tos periféricos como puede ser la impre- 
sora. Como su nombre indica, una red 
local une ordenadores (y periféricos) 
que se encuentran próximos (a menudo 
en la misma habitación o habitaciones 
contiguas). 

La indicación del dispositivo adecua- 
do se suele incluir en ef comando de 
apertura del canal OPEN, y más concre- 





ta fundón LOF proporciona ta 
longitud medida en bytes , de un 
determinado archivo 

lamente en el nombre del archivo. Así, 
para la apertura de un canal asociado al 
archivo DATOS, se pueden especificar 
los siguientes nombres en el argumen- 
to de OPEN, 

"CAS:DATGS" 

"D:DATOS" 

"SCRN:DATOS" 

"KYBD:DATÜS" 

"LPT:DATGS JH 

Los caracteres que preceden a los dos 
puntos especifican el periférico. En el 
ejemplo, corresponden a: casete, unidad 
de disco, pantalla, teclado e impresora. 
Estas formulaciones no están estanda- 
rizadas. Aquí se ha tomado una muy se- 
mejante a la adoptada por el BASIC de 
Microsoft. 

La identificación de periféricos se rea- 
liza de formas muy heterogéneas, de- 
pendiendo de cada aparato en particu- 
lar. 

En algunos casos, cada dispositivo tie- 
ne asignado un número y se consideran 
permanentemente abiertos. Así, basta- 
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TABLA DE CONVERSIÓN (1) 


Ordenador 


Delimitación 
del archivo 


Escritura 


Lectura 


LOF «n» 


EOF (<n>| 


WRITE # 


WRITE 


LINE INPUT 


UNE INPUT # 


AMSTRAD 


- 


EOF 


WRITE #9 


- 


- 


UNE INPUT #9 


APPLE II 
(APPLESOFT) 


- 




- 


- 


- 


- 


APRICOT 

(M-BASIC) 


LOF «n» 


EOF l<n» 


WRITE # 


WRITE 


LINE INPUT 


UNE INPUT U 


ATARI 


- 


- 


- 


— 


— 


~ 


CBM 64 


- 


- 


- 


- 


- 


~ 


DRAGON 


- 


EOF (<n>) 


- 


- 


LIME INPUT 




EQUIPOS MSX 


LOF (<n>) 


EOF (<n>) 


- 


- 


LIME INPUT 


LINE INPUT # 


HP-150 


LOF «n» 


EOF (<n>) 


WRITE # 


WRITE 


UNE INPUT 


LINE INPUT U 


IBM PC 


LOF (<n>) 


EOF «n» 


WRITE # 


WRITE 


LINE INPUT 


UNE INPUT# 


MPF 


- 


- 


- 


- 


— 


- 


NCR DM-V 
(MS-8ASIC) 


LOF (<n>) 


EOF (<n>) 


WRITE # 


WRITE 


UNE INPUT 


LINE INPUT # 


NEW BRAIN 


- 




- 


- 


UNPUT 


UNPUT # 


ORIC 


- 


- 


- 


- 


- 


- 


SHARP MZ-700 
(MZ-BASIC) 


- 


- 


- 


- 


- 


- 


SINCLAIR QL 


- 


EOF (<n>) 


- 


- 


- 


- 


SPECTRAVIDEO 


LOF (<n>) 


EOF (<n>) 


- 


- 


LINE INPUT 


LINE INPUT # 


ZX-SPECTRUM 


- 


- 


— 


— 


- 


- 



ría con teclear PRII\JT#3,A para mandar Abriendo los canales adecuados se 
el dato A a la impresora (suponiendo puede establecer ía comunicación con 

que et 3 fuera su canal asociado). cada periférico, A continuación se des- 




cribe el posible empleo que se puede 
hacer de cada uno. 

• Teclado: 

El teclado es un dispositivo de entra- 
da de datos. Ello significa que sólo se 
pueden recibir datos y nunca mandarlos 
hacia el teclado. En la mayor parte de 
los casos no es necesario abrir un ca- 
nal para ía comunicación con este peri- 
férico. De utilizar un canal, el resultado 
de ejecutar los comandos IJNIPUT# y UNE 
INPUT# será idéntico al de INPUT y LíNE 
INPUT, 



Para localizar el límite de un archivo se emplea la función EOF : Dicha función • Pantalla: 

lógica adopto el valor CIERTO cuando se alcanza el mencionado límite. El caso de la pantalla es similar al del 
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TABLA DE CONVERSIÓN (2} 


Ordenador 


Caracteres identificadores de periféricos 


Casete 


Disco 


Impresora 


Teclado 


Pantalla 


Comunicaciones 


AMSTRAD 


#9 


#9 


#8 


- 


#1 ... #7 


- 


APPLE li 
(APPLESOFT) 


- 


- 


- 


- 


- 


- 


APRICOT 
(NI -BASIC) 


- 


- 


- 


- 


- 


- 


ATARI 


"C: 


U: 


"P: 


"K: 


"S: 


"R: 


CBM 64 1 


1 


8 


4 


- 


0 


- 


DRAGON 2 


-1 


- 


“2 


- 


- 


- 


EQUIPOS MSX 


"CAS: 


- 


jr LPT: 


- 


"CRT: "GRP: 3 


- 


HP-150 


- 


- 


- 


- 


- 


- 


IBM PC 


"CASI: 


”A: 

' r B: 


"LPT; 

"LPT2: 

"LPT3: 


"KYBD: 


"SCRN: 


"COMI: 

"COM2: 


MPF 


- 


- 


- 


- 


- 




NCR DM-V 
(MS-BASIC) 


- 


- 


- 


— 


- 


- 


NEW BRAIN 4 


1 -2 




8 


5 


0 


9 


ORÍC 


- 


- 


- 


- 


- 


‘ - 


SHARP MZ-100 
(MZ BASIC) 


- 


- 


- 


- 


- 


- 


SINCLAIR QL 


- 


MDV 5 


- 


CON 


SCR 


SER 


3 PE CTR A VIDEO 


"CAS: 


1 -2 


* r LPT: 


"KYBD: 


"SCRN: 


- 


ZX-SPECTRUNI 


- 


1 I 


- 


- 


- 


- 



1 El número indicado se ha de adjuntar en el segundo parámetro del comando OREN . 1 El identíficador se sitúa en la posición del número de archivo, 
dentro del comando OREN. 3 CRT abre el canal en la pantalla de texto, GRP lo hace en la pantalla de gráficos 4 El número indicado se ha de colocar como 
segundo parámetro en el comando OREN. a En este caso el dispositivo no es el disco sino el Microdrive de Sinclair. 



teclado, con la única diferencia de que 
ésta sólo admite comandos de salida de 
datos. La apertura de un canal para la 
pantalla suele ponerse en práctica en 
los ordenadores que disponen de varios 
modos gráficos. En tal caso se utiliza el 
canal para escribir caracteres cuando se 
está en un modo gráfico que no admite 
texto directamente. 

• Impresora: 

Determinados ordenadores no poseen 



instrucciones BASIC apropiadas para el 
manejo de la impresora. Cuando suce- 
de esto, el usuario se ve obligado a crear 



un canal y trabajar con la impresora 
como si se trata de un archivo de datos. 
De nuevo, los únicos comandos utilíza- 




Recoge una cadena del teclado incluyendo en ella el carácter de retorno de cerro. 
Formato: UNE INPÜT<var1X í <var2>...] 

Ejemplos: 20 UNE INPUT CA$ 
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Lee datos de un archivo tomando como único delimitador el carácter de retorno de carro. 
Formato: UNE INPUT#<mjmero> f <var1>( í <var2> .] 



bles son los de salida de datos: PRINT# 
y WR ITE#. 

Normalmente, en la apertura de ca- 
nales para estos periféricos no es nece- 
sario adjuntar un nombre de archivo. 
Para crear un cana! para la comunica- 
ción con la impresora basta con ejecu- 
tar la orden: 



Ejemplos: 10 UNE INPUT#U$ 

50 UNE INPUT#2 f R$P$S$ 



OPEN ' r O",#V'LPT:" 

En efecto, no es necesario identificar 
un archivo específico ya que, en reali- 
dad, tal archivo es puramente ficticio. 



A$ = "MARI” 




A$ = "MARI" 


B$ =" CARMEN" 




B$ = "CARMEN" 


PRINT02, A$; B$ 




PRINT# 2, A$ 






PRINT# 2, B$ 



1 





M 


3 


M 


m 


Fl 


M r 


M 


E 



|<CR)[ 



M | 


E 


R 


1 M c 



5 

C M R 



Z 



I Si en el argumento de PRINT U se separan los datos con 
punto y coma, éstos se escribirán de forma contigua al 
efectuar dicha operación . 



I EI comando PRINT# introduce al final de cada hsta de datos 
un carácter de retomo de carro. Tal carácter permite 
distinguir unos datos de otros 



AS = "MARI 1 ' 

B$ - "CARMEN 1 ' 
PRINTB2, A$; '7' ; B$ 




A$= "MARI" 

B$* "CARMEN" 

PRINT#2,CHR$I34);A$; CHR$I34) 










A R | 1 i , |c a[r|m¡E N 


CR){ ¡ j lili " M | A R | 1 ¡ " <CR)| | 


J L 



| i Una forma de separar datos en un 
archivo consiste en introducir ef signo 
«coma» entre cada dos de ellos. 



I En el caso de las cadenas de caracteres , éstas se pueden 
delimitar introduciendo el signo de comillas 
antes y después de cada dato. 



Aí = "MARI" 




A ^ 12 


B$ = "CARMEN" 




B= 57 


WRITE#2,A$,B$ 




PRINT tt^USlNG 'traer ;A;B 



t 









A 


R ' 




n 


n 


n 


l c 


3 


L^J 


| M 


E 


"1 


3 



J2 


n 


□ 


C..EI 


1 2 X 5 ■ 7 <CR> 



I EI empleo del comando WRITE evita la necesidad de tener 
que introducir separadores de datos El propio comando se 
encarga de colocar los separadores adecuados. 



Otra forma de separar correctamente ios datos consiste en 
especificar su formato mediante la opción USING del 
comando PRINT#. 



32 



Archivos 
aleatorios (I) 



Creación y uso de 
archivos de acceso 
directo 



os elementos 
constitutivos cíe 
un archivo se- 
cuencial (los re- 
gistros) se graban 
uno detrás de otro, y para acceder a uno 
de ellos es preciso pasar por todos los 
anteriores. Evidentemente, esto plantea 
algunas dificultades a la hora de mane- 
jar la información contenida en ese tipo 
de archivos. Así pues r en muchos casos 
es necesario recurrir a los archivos de 
acceso directo que obvian algunas de 
estas dificultades. Dos de estas caracte- 
rísticas ventajosas de los archivos de ac- 
ceso directo son las siguientes: 

* En primer lugar, en un archivo di- 
recto no es necesario grabar los regis- 
tros uno tras otro, sino que se pueden 
grabar en la posición y en el orden que 
se desee. 

• En segundo lugar, a la hora de ac- 
ceder a uno de los elementos del archi- 
vo, no es necesario acceder previamen- 
te a todos ios demás. 

Un archivo en general es un conjunto 
de registros. En el caso de los archivos 
aleatorios, cada registro está formado 
por una serie de campos que también 
han de tener una longitud fija, de ma- 
nera que el registro tendrá una estruc- 
tura fija. Esta estructura del registro ha 
de ser elegida a la vista de la informa- 
ción que se va a grabar en el archivo. 
Dentro de estos campos, existe uno m uy 
importante: la clave, que decide la posi- 
ción relativa de cada registro dentro del 
archivo. Por lo general, la clave suele 
ser numérica (en el caso del BASIC 
siempre lo será). La clave puede equi- 
pararse a un índice que permite el ac- 
ceso a un determinado registro. 

El primer paso para construir un ar- 
chivo de acceso directo es crear la es- 
tructura de los registros que contendrán 
la información. Así, si se desea crear un 
archivo con los números de teléfono y 
las direcciones de los amigos, será ne- 
cesario que cada registro contenga, por 
ejemplo, las siguientes informaciones: 

Nombre 
Primer apellido 
Segundo apellido 
Dirección 
Ciudad 
Teléfono 




El casete es un soporte de almacenamiento 
externo capa7 exclusivamente de 
albergar archivos de tipo secuencial. 



La longitud reservada para cada uno 
de estos campos ha der ser definida y 
permanecerá fija a lo largo de todo el 
proceso. Esta longitud se elegirá de for- 
ma que quepa en el campo la informa- 
ción que se desea almacenar. Por ejem- 
plo, para almacenar el campo nombre 
será suficiente con reservar 20 caracte- 
res; la mayor parte de ios nombres ca- 
brán en ese sitio. Desde luego, en este 
punto puede ser preciso llegar a una so- 
licitud de compromiso; no todos los 
nombres caben en 20 caracteres, pero 
si reservamos mayor espacio nos encon- 
traremos con que la mayor parte de los 
nombres no llegarán a ocupar gran par- 
te del espacio disponible y, por tanto, 
ese espacio se perderá. Hay que tener 
en cuenta que si reservamos mucho es- 
pacio para cada uno de los campos, el 
registro en su conjunto resultará más 
voluminoso y, en consecuencia, cabrán 
menos registros en el soporte de memo- 
ria sobre el que reside el archivo. En el 




La diferencia fundamental entre los 
archivos de tipo secuencia I y de 
acceso directo reside en que , en 
estos últimos, es posible acceder a 
cualquiera de sus elementos sin 
pasar por los anteriores. 
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ejemplo propuesto, una distribución 
más o menos racional de las longitudes 
de los registros puede ser la siguiente: 




Nombre (20 caracteres) 

Primer apellido (15 caracteres) 

Segundo apellido (15 caracteres) 

Dirección (30 caracteres) 

Ciudad (10 caracteres) 

Teléfono (9 caracteres) 



Los archivos de acceso directo exigen soportes de memoria 
que permitan un acceso aleatorio a la información almacenada ; 
tal es el caso de las unidades de disco flexible. 




La operación con 
archivos en disco 
permite al 
ordenador 
almacenar y 
manipular con 
eficacia grandes 
cantidades de 
información. 




Realiza la apertura de un archiva en un dispositivo de almacenamiento externo. 

Formato: OREN "R ",#<n1 >,<nom>,<long> 

Ejemplos: 10 OPEN r 'R,#1 /'DATOS 1 ', 123 

50 OPEN "R Hf J2,"ARCHIV0. DAT' H 50 




Específica el formato del registro 

Formato: FÍELD#<n1>,<long1> AS <var1>,.„ 

Ejemplos: 20 FIELO# 1, 20 AS 4 10 AS B$ 

70 FIELD#2 h 5ASTEL$15AS N0M$ 



Operando desde el BASIC 

Las operaciones que es necesario 
efectuar para crear uno de estos archi- 
vos desde el BASIC son las siguientes: 

1) Abrir el archivo en modalidad de 
acceso directo. A diferencia de lo que 
sucedería con los archivos secuencia- 
les, aquí no es preciso abrir el archivo 
en modo de lectura o de escritura. Una 
vez abierto el archivo, en él se pueden 
efectuar operaciones tanto de lectura 
como de escritura. 

La siguiente instrucción opera abrien- 
do el archivo en caso de que exista; y en 
caso de que no exista. Jo crea: 

OPEN "R " r r #n 1 r XnombreX ,n2 

Al comando OPEN le siguen una se- 
rie de parámetros que es necesario es- 
pecificar. En primer lugar, la R entre co- 
millas índica que se trata de un archivo 
de acceso directo. A continuación, ni in- 
dica el número de canal que se desea 
abrir. EJ nombre que se especifique a 
continuación es el del archivo con el 
que se desea trabajar. Por último, n2 in- 
dica Ja Jongitud total del archivo. 

Existen limitaciones en cuanto al ta- 
maño máximo del registro, pero éstas 
dependen del sistema con el que se esté 
trabajando. 

2) Especificar la estructura de cada 
registro (esta operación no es necesaria 
en todas las versiones del BASIC). 

FÍELO # ni, n3 AS<var1> r o4 AS <var2>,... 

Mediante esta instrucción se define el 
campo asociado a un canal determina- 
do, que se identifica mediante el núme- 
ro ni. A continuación se indica la es- 
tructura medíante la enumeración de 
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Ajustan los datos a izquierda o deracha, respectivamente, dentro del campo especificado. 

Formato: LSET <ca m po>=<va rra bie> 

RSET <campoXvariabte> 

Ejemplos: 20 LSET A$=TELJ$ 

70 RSETB$=N0M$ 




Sitúa un registro de clave especificada en un archivo de acceso directo. 

Formato : RUT # <nf>, <reg> 

Ejemplos: 20 PUT #1, REG% 

70 PUT #2,15 



las variables asociadas a cada campo: 
vari, var2 r etc., siendo precedidas estas 
variables por un número que indica ei 
espacio que se les desea reservar. 

Un detalle importante a tener en 
cuenta es que en un archivo secuencíal 
todos los campos que componen el re- 
gistro han de ser alfanuméricos. El he- 
cho de que estos campos hayan de ser 
obligatoriamente alfanuméricos no 
quiere decir que en un archivo no se 
pueden grabar números, sino que sobre 
ellos habrá que realizar las transforma- 
ciones adecuadas para convertirlos en 
cadenas de caracteres. 

3) Por lo general, los datos que se 
van a introducir en el archivo no tienen 
la misma longitud que los campos que 
les fueron reservados. Esta es la razón 
de que sea preciso realizar una adapta- 
ción de los datos a los campos donde se 
alojarán dentro dei archivo. Este ajuste 
puede realizarse mediante dos instruc- 
ciones existentes a tal efecto. Estas ins- 
trucciones se encargan de ajustar los 
caracteres bien a ¡a derecha o bien a la 
izquierda del campo disponible, y relle- 
nan el resto del campo con espacios en 
blanco. Por lo general, se suele emplear 
la instrucción LSET con cadenas de ca- 
racteres alfanuméricos, mientras que 
RSET se suele emplear para cadenas de 
caracteres numéricos. 

La transformación de un número en 
una cadena de caracteres es fácil de 
realizar. De hecho, ya se conoce una 
función capaz de realizar esa operación: 
se trata de la función STR$l Sin embar- 
go, esta función, que en principio fun- 
ciona correctamente, puede ser mejora- 
da. Hay que observar que un número en- 
tero se almacena en la memoria del or- 
denador ocupando dos bytes, mientras 
que el campo preciso para almacenar 
ese mismo número en un archivo me- 
diante la función STR$ debería tener 5 
caracteres. 

Para evitar este desperdicio del espa- 
cio de almacenamiento de los soportes 
externos, dispone de una función que 
permite almacenar un número de sim- 
ple precisión en una cadena, emplean- 
do para ello tan solo dos bytes. El sis- 
tema seguido es el mismo que se em- 
plea para almacenar ese número en me- 
moria. La función a utilizar es MKI$. 

Existen también funciones equivalen- 
tes para almacenar números de simple 
precisión en memoria mediante cuatro 



bytes (MtCS$) y números de doble preci- 
sión mediante ocho bytes (MKD$), 

Por supuesto, existen funciones para 
realizar la operación inversa, funciones 
que obtienen el número primitivo a par- 
tir de la cadena generada por MKÍ$, 
MKS$ y MKD$ Estas funciones serán 
estudiadas más adelante al explicar 
como se puede leer un archivo. 



La formulación de LSET es la que si- 
gue: 

LSET <var. dest.>=<var ortgen> 

En donde: 

<var. dest>; Variable donde se desea 
que la cadena quede ajustada. 



OPEN 



CLOSE 




.V.V.V t 






Los comandos 
OPEN y CLOSE 
abren y cierran 
respectivamente , 
los canales de 
comunicación 
entre el 

ordenador y los 
archivos en disco , 



35 




se van grabando en el buffer y van pa- 
sando ai disco en el momento oportuno. 
La operación de cierre del archivo con- 
siste en disociar el canal del archivo, 
transfiriendo antes el contenido del buf- 
fer a! archivo. 

CIOSE # 1 ó END 



Creación de un archivo 

Un ejemplo de creación de un archivo 
de este tipo puede ser el que se detalla 
en los próximos párrafos. 

La primera operación se realiza en la 
línea 1000. Concretamente, en este 
caso se abre el canal 1; el nombre del 
archivo será DATOS y la longitud reser- 
vada para cada registro es de 98 bytes: 

1000 OREN "R" # ni, "DATOS" 98 

A continuación, es necesario especi- 
ficar la estructura de los registros que 
se van a emplear, 

1010 FIELD # NI , 20 AS N 0M$, 1 5 AS API $¿ 1 5 AS AP2$ 
30 AS DIR$ 10 AS CIUS#, 9 AS TEL$ 

Con la línea 1020 se pretende leer el 
número de registro en el que será gra- 
bada ía información que se introducirá 



I AI igual que ocurre con la 

reproducción de un disco musical 
los archivos de acceso directo 
permiten el Ubre acceso a cualquiera 
de sus registros. Tomando la 
analogía del disco , el acceso a un 
registro equivale a posicionar ¡a 
cabeza en cualquier parte de la 
superficie del mismo. 

<var. origen>: Variable donde se en 
cuentra la cadena original. 



mas adelante: 

5) Cerrar el archivo que se ha em- 
pleado. Esta operación es muy impor- 1020 JNPUT "QUE REGISTRO ”REG%: IF REG%=0 THEN 
tante ya que los elementos del archivo GLOSE # NI : END 




Lee el registro especificado de un archivo de acceso directo. 
Formato: GET KnL><reg> 



4) introducir los datos en el buffer, de 
donde pasarán en el momento oportuno 
al archivo en disco. 

La posición relativa dentro del archi- 
vo queda definida por POS% r que es la 
clave del registro y que en este caso es 
numérica. Esta clave ha de ser un nú- 
mero entero. Si existen más datos a in- 
troducir, se ha de volver al punto 3; si 
no, se pasa al siguiente punto. 



Ejemplos: GET#1 r REG% 

50 GET #2,25 




Convierte una cadena que representa un número en formato comprimido en uno de precisión entera. 
Formato: CVI (<cadena>) 



PUT#nl,PQS% 



Ejemplos: 20 N=CVI(N$) 
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Convierte una cadena que representa un numero en formato comprimido en uno de doble precisión. 
Formato: CVD(<cadena>) 

Ejemplos: 20 P=CVD(LL$) 




Convierte una cadera que representa un número en formato comprimido en uno de simple precisión. 
Formato: CV$(<cadena>) 




I La apertura y cierre de un archivo 
creado en un dispositivo de 
almacenamiento externo corre a 
cargo , respectivamente i de las 
órdenes OPEN y GLOSE. 



Ejemplos: 20 KG=CVS(MHl) 




Convierte un número de precisión entera en una cadena en formato comprimido. 
Formato: MK!$(<num>l 

Ejemplos: 10 LET A$=MKI$(A) 




; El «buffet* actúa como intermediario entre los datos generados 
por el proceso y el soporte donde se almacenan. 



Para salir del proceso basta con res- 
ponder a la orden INPUT que el registro 
que se desea grabar es e! registro O; en 
tal caso se cerrará el archivo y se de- 
tendrá el proceso. 

Evidentemente, antes de almacenar 
los datos en el archivo es preciso dispo- 
ner de dichos datos. Por lo general, es- 
tos datos suelen proceder del exterior y 
son contados a través de la ejecución de 
instrucciones de tipo IIMPUT. También 
podrían derivar de procesos ejecutados 
con anterioridad, pero este caso es me- 
nos frecuente. Lo que sí sucede a veces 
es que la información recogida es trata- 
da antes de ser almacenada en el archi- 
vo. 

Aquí está, en definitiva, el bloque de 
instrucciones para la captación de ios 
datos: 





Un archivo aleatorio o 
de acceso directo 
consta de un conjunto 
de registros grabados 
ordenadamente en 
función de sus claves. 



1030 INPUT "NOMBRE: r ;N$ 
1040 INPUT "APELLIDO 1:";A1$ 
1050 INPUT "APELLIDO 2: r ';A2$ 
1060 INPUT "DIRECCION ;";D$ 
1070 INPUT "CIUDAD :";C$ 

1080 INPUT "TELEFONO : r ;T# 



A continuación, es preciso ajustar los 
valores que se desean grabar en el ar- 
chivo al formato disponible; 

1100 LSET N0M$=N$ 

1110 LSET API fcA1$ 

1120 LSET AP2$=A2S 
1130 LSET DIR$=D$ 

1140 LSET CIU$=C$ 

1150 RSET TEL$=MKD$[T#J 



Tras ello, puede ya grabarse la infor- 
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mación relativa al registro que nos ocu- 
pa en el archivo: 

1200 PUT #1 h REG% 




Convierte un numero de precisión simple en una cadena en formato comprimido. 
Formato: MKS$Knum>) 

Ejemplos: 10 LEI H$=MKS|HS| 



Convierte un número de precisión doble en una cadena en formato comprimido 
Formato: MKD$(<num>} 

Ejemplos: 10 LEÍ K$=MKD$PESO) 




NUM 








1- APELLIDO 

2 a APELLIDO 

NOMBRE 





CLAVE 




CAMP0 1 


CAMPO 2 




CAMPO 3 





■ Un registro es muy semejante a una ficha. Los espacios reservados en la ficha para 
los distintos conceptos reciben en los registros el nombre de «campos». 





LSET 

r > 




RSET 

r ■> 




tclAfS 


Al 1 M 


im ex 


XI 1 h 


2]3l 


ETÁIs 


ÉTTIeI | 


XD ex 


xn T 


|5| 


EEE 


XI 1 1 


xn ce 


_L2|5|0|0 


SED 


ImIáIr 


gIairiiit 


aTTI i e 


1 1 1510 


1 lol 




< > 




L > 





■ Mediante las funciones LSET y RSET r es posible ajustar los datos a izquierda o 
derecha , respectivamente, dentro de ios campos del registro. 



Por último, puede regresarse a la lí- 
nea 1020 para tratar más entradas de 
datos: 

1210 GOTO 1020 

Junto al texto se reproduce el listado 
completo del programa ejemplo, desti- 
nado a la creación e introducción de da- 
tos en el archivo. 



Lectura de un archivo de acceso 
directo 



Son cuatro los pasos a seguir para la 
lectura de los requisitos de un archivo 
de acceso directo o aleatorio; justamen- 
te, los que se detallan a continuación. 

1) Abrir el archivo. 

La apertura es análoga a la que se 
realiza al crear el archivo. Ante todo, al 
abrir el archivo para leer datos del mis- 
mo es preciso que este exista, esto es, 
que haya sido creado previamente. El 
nombre utilizado ha de ser el correcto y 
la longitud del registro ha de ser la mis- 
ma con fa que fue creado. 

OREN r 'R" # ni, "nombre", n2 

2) Especificar la estructura de cada 
registro. 

El registro ha de tener la misma es- 
tructura que tenía cuando el archivo fue 
creado. Lo único que ha de mantenerse 
es la estructura, ya que los datos están 
grabados en el archivo en registros de 
ese tipo. Sin embargo, los nombres de 
las variables asignadas a los campos del 
buffer pueden ser distintas: 

FIELD# ni, n3 AS <var1>, n4 AS <var2> 

3} Leer el registro deseado del archi- 
vo, con lo que dicha información queda- 
rá a la disposición del usuario para ma- 
nejarlo según sus necesidades: 
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GEN# ni, REG% 

Los datos alfanuméricos, como ya se 
ha dicho, están directamente a dispo- 



TABLA DE CONVERSIÓN 




OPEN 


FIELO 


Ajuste 


Escritura/ lectura 


Conversión 


Apertura 


Ordenador 


OPEN 

<nom>,n2 


FIELD#n1, 

n3A$<varl> 


LSET/RSET 


PUT#nl, 

<num> 


GET#n1, 

<num> 


CVI/CVS/ 

CVD 


MKI$/MKS$/ 

MKD$ 


OPEN<nom> 

[FOR<modo>] 

AS[#]n1 

[LEN=n2] 


AMSTRAD 


— 


— 


— 


— 


— 


- 




- 


APPLE II < 
(APPLESOFT) 


0PEN<nom>, 

Ln1,Sn2,Dn2,Vn4 


- 


— 


WRITE nom, R1 


READ Nom, R1 1 


- 


— 


- 


APRICOT 

(M-BASIC) 


OPEN "R",#n1, 
<nom>,n2 


FIELO #n1, 
n3A$<varlX. 


LSET/RSET 


PUT#n1, 

<num> 


GET#n1, 

<num> 


CVI/CVS/ 

CVD 


MKI$/MKS$/ 

MKD$ 


OPEN<nom> 

[FOR<modo>] 

AS[#]n1 

[LEN=n2] 


ATARI 


0PEN#n1,aux1, 

aux2,nom 


- 


- 


1 




— 


— 


— 


CBM 64 3 


— 


— 


— 


~ 




- 


- 




DRAGON 


— 


— 


— 


— 


- 


- 


- 


- 


EQUIPOS 

MSX 


- 


FIELD#n1, 

n3AS<var1> 


LSET/RSET 


PUTtfnl, 

<num> 


GET#n1, 

<num> 


CVI/CVS/ 

evo 


MKI$/MKS$/ 

MKDS 


OPEN<nom> 

[FOR<modo>] 

AS[#]n1 

[LEN=n2] 


HP-150 


OPEN "R",#n1, 
<nom>,n2 


FIELD/fnl, 
n3AS<var1>... ¡ 


LSET/RSET 


PUT#n1, 

<num> 


GET#n1, 

<num> 


CVI/CVS/ 

CVD 


MKÍ$/MKS$/ 

MKD$ 


OPEN<nom> 

ÍFOR<modo>] 

AS[#]n1 

[LEN=n2| 


IBM PC 


OPEN "R" #n1, 
<nom> H n2 


FIELDtfnl, 

n3AS<var1X. 


LSET/RSET 


PUTtfnl, 

<num> 


GET#n1, 

<num> 


CVI/CVS/ 

CVD 


MKI$/MKS$/ 

MKD$ 


OPEN<nom> 

[FOR<modo>] 

AS[#]n1 

[LEN=n2J 


MPF 




— 


— 


— 


— 


— 


- 


- 


NCR DM-V 
(MS-BAS1C) 


OPEN HH R'V#n1 f 
<nom>,n2 


FIELD#n1 ( 

n3AS<varl>... 


LSET/RSET 


PUT#n1, 

<num> 


GET#n1, 

<num> 


CVI/CVS/ 

CVD 


MKI$/MKS$/ 

MKD$ 


— 


NEW BRAIN 


— 


— 


— 




- 


- 


- 


- 


ORIC 


- 


- 


- 


— 


- 


— 


- 


- 


SHARP MZ-70Ü 
(MZ BASIC) 




- 


- 


- 


— 


- 


- 




SINCLAIR QL 


— 




— 


— 


— 


1 — 


— 


- 


SPECTRA VIDEO 


— 


- 


LSET/RSET 


PUTflnl, 

<num> 


GETtfnl, 

<num> 


CVI/CVS/ 

CVD 


MKI$/MKS$/ 

MKD$ 


OPEN<nom> 

[FOR<modo>] 

ASfflnl 

[LEN=n2] 


ZX-SPECTRUM 


- 


- 


— 


- 


- 


- 


- 


- 



1 Para manejar estos comandos es preciso utilizar un CTRUD e introducirlos en los argumentos de sucesivas instrucciones PRINT. 

2 Los archivos aleatorios en el ATARI con unidad de disco no funcionan de la forma comentada en el texto con los comandos PÜT y GET, sino que para 
leer un determinado registro de un archivo, es necesario posicionarse sobre él previamente y, más tarde, realizar la operación de lectura mediante INPUT#0 



de escritura con PRINT#. 

3 Se comentará en un posterior capítulo de la obra 
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1000 OP EN "Ff, #n1, "<nQmbre>", n2 
T010 FÍELO #n1 r 20 ASNÜM$,15 AS APIS, 
15 AS AP2$, 30 AS 
DIRÍJOAS CIU$, 9A$TEL$ 

1020 INPUT "QUE REGISTRO ";REG%: IF 
REG% = 0 THEN CLOSE#nl: END 
1030 ÍNPUT "NOM BRE: ";N$ 

1040 INPUT "APELLIDO 1: ";A1$ 

1050 INP UT "APELll DO 2: ";A2$ 

1060 INPUT "DIRECCION :";D$ 

1070 INPUT "CIUDAD :";C$ 

1080 INPUT "TELEFONO :";T# 

1100 LSET NDM$=N$ 

1110 LSET AP1$= Al$ 

1120 LSET AP2$= A2$ 

1130 LSET DIR$= D$ 

1140 LSET CIU$=C$ 

1150 RSET TEL$-MKD$ (T#} 

1200 PUT #1,REG% 

1210 GOTO 1020 



PROGRAMA 1: listado del programa ejemplo para 
la creación e introducción de datos en un archivo. 



1000 0PEN "R" #1, "DATOS" 99 
1010 FIELO #1,20 AS N$, 15 AS A1$, 

15 AS A2$ r 30 AS D$ P 10 AS C$, 9 AS TS 
1020 INPUT "QUE REGISTRO ";REG%: 

IF REG%= O THEN CL0SE#1: END 
1030 GET#1, REG% 

1130 PRINT "NOMBRE: ";N$ 

1140 PRINT "APELLIDO 1: ";A1$ 

1150 PRINT "APELLIDO 2: ";A2S 
1160 PRINT "DIRECCION :":D$ 

1170 PRÍNT "CIUDAD :";C$ 

1180 PRINT "TELEFONO CVD(T$) 

1210 GOTO 1020 

PROGRAMA 2: 
programa para la 
lectura de los 
datos 

introducidos en el 
archivo creado 
por medio del 
programa ?. 




Las funciones MKI$ y CVI permiten 
convertir un número en una cadena 
de caracteres y viceversa, facilitando 
su almacenamiento en un espacio 
mínimo . 



ción del usuario una vez que el registro 
es extraído del archivo. Pero no hay que 
olvidar que los datos numéricos fueron 
tratados para convertirlos en alfa numé- 
ricos, por lo que ahora será preciso rea- 
lizar la operación inversa. Si la función 
empleada para la conversión fue STR$ 
bastará ahora con aplicar la función 
VAL. Pero en el caso de que la función 
utilizada fuese una de las siguientes: 
MKI$ h MKS$ o MKD$, sería preciso re- 
currir a las funciones CVI, CVS o CVD, 
respectivamente. Su cometido es el que 
sigue: 

CVf Convierte una cadena en un nú- 
mero de precisión entera. 

CVS Convierte una cadena en un nú- 
mero de simple precisión. 

CVD Convierte una cadena en un nú- 
mero de doble precisión. 

Téngase en cuenta que la cadena ha 
de ser convertida ai mismo tipo de nú- 
mero que constituía su origen. Es decir, 
si se convierte un número de precisión 
entera en cadena mediante el empleo 
de la función MKI$, no es posible recon- 
vertir la cadena en número mediante la 
función CVS ni mediante la función 
CVD. Tan solo la función CVI nos per- 
mitirá obtener el número del que se par- 
tió. 

4) Cerrar el archivo para dejar libre 
el canal correspondiente: 

CLGSE# ni 

El programa ejemplo que figura junto 
al texto (programa 2), puede utijízarse 
para leer los datos que fueron introdu- 
cidos en el archivo mediante el progra- 
ma 1 . 
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Archivos 
aleatorios (II) 



Ejercicio práctico con 
un archivo de acceso 
directo 




Un ejercicio práctico como el realizado en el presente capítulo puede concluir con 
una útil herramienta para la gestión personal , Tal es el caso del programa 
confeccionado , el cual se puede utilizar para controlar el archivo bibliográfico. 



n este segundo 
capítulo dedicado 
a los archivos 
aleatorios o de ac- 
ceso directo, el 
objetivo es profundizar en el estudio de 
su estructura y forma de empleo. Para 
el eficaz desarrollo de esta tarea se con- 
feccionará un programa que reflejará 
los aspectos prácticos. 

El ejemplo a desarrollar se concreta 
en la versión programada del archivo de 
una biblioteca, en el cual se introducirá 
información relativa a los libros existen- 
tes en la misma. Esta información cons- 
tituye en su conjunto lo que denomina- 
mos archivo. 

La información a almacenar puede 
clasificarse en diversos bloques. Cada 
uno de dichos bloques constituye una 
unidad de información denominada re- 
gistro. Como ya se indicó en el primer 
capítulo dedicado a ios archivos de ac- 
ceso directo, la estructura de los regis- 
tros ha de ser fija. Cada registro, a su 
vez, consta de una serie de campos que 
pueden considerarse como unidades 
elementales de información. 



Definición de características 

La primera operación a realizar, antes 
de empezar el trabajo con un archivo de 
acceso directo, consiste en definir la es- 
tructura de los registros. Esta estructu- 
ra queda determinada por tres paráme- 
tros fundamentales: número de campos 
que lo componen, longitud de cada uno 
de los campos y naturaleza de los cam- 
pos. En nuestro caso, se desea crear una 
estructura cuyos registros contengan 
ios siguientes campos: 

— Título. 

— Autor. 

— Editorial, 

— Número de páginas. 

— Año. 

— Código. 

— Signatura. 

A continuación es imprescindible es- 
tudiar cada uno de los campos para de- 
cir cuál será la estructura y naturaleza 
de cada uno de ellos. 



En primer lugar cabe suponer que el 
campo «Título» puede poseer una longi- 
tud muy variable; el número de caracte- 
res necesarios para almacenar el título 
de un libro puede oscilar entre unos po- 
cos de caracteres y 100 ó más. En todo 
caso, no es corriente que supere los 30 
caracteres. Hay que tener en cuenta que 
si se otorga una longitud muy grande a 
este campo, surgirá el problema de que 
cada registro ocupará un excesivo espa- 
cio en el disco. Por el contrario, si se eli- 
ge una longitud pequeña serán pocos 
los títulos que podrán introducirse sin 
proceder a su simplificación. 

En definitiva, se ha de optar por una 
solución de compromiso intermedia en- 
tre ambas opciones. Por ejemplo, en 
nuestro caso podría ser razonable asig- 
nar a este campo una longitud de 40 ca- 
racteres. 

Donde no cabe duda alguna es en lo 
que se refiere a la naturaleza del archi- 
vo: se trata de un campo alfanumérico 
ya que, por lo general, se compondrá de 
caracteres alfabéticos y, ocasionalmen- 
te, de algún número. 



El siguiente campo es el de Autor. En 
él se desean almacenar los nombres y 
apellidos de los autores de ios libros. 
Aquí surgen varias posibilidades a con- 
templar; la primera es que algunas ve- 
ces un libro tiene más de un autor, en 
cuyo caso resultará difícil incluir los dos 
nombres en el espacio reservado para 
un solo nombre. En nuestro ejemplo se 
reservarán 30 caracteres para almace- 
nar esta información; longitud que pa- 
rece suficiente- Por supuesto, su natu- 
raleza va a ser también alfanumérica. 

El tercer campo es el destinado a la 
Editorial. Las características y salveda- 
des a contemplar en este campo son 
muy semejantes a las ya señaladas para 
los campos anteriores. Ahora puede ser 
suficiente con una longitud de 20 carac- 
teres para almacenar el nombre de la 
editorial. De nuevo, su naturaleza será 
alfanumérica. El número de páginas del 
libro es el primer campo numérico con 
el que tropezamos, de ahí que los pro- 
blemas que plantea sean algo diferen- 
tes. Hay que decidir el tipo de variable 
a utilizar. 
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Las bases de datos informatizadas 
presentan notables ventajas sobre 
los archivos tradicionales. Las 
principales contrapartidas se 
centran en el ahorro de espacio, 
tiempo de manipulación y 
versatilidad. 



Puede que resulte un poco extraño el 
hecho de tener que seleccionar el tipo 
de variable numérica a emplear, ya que 
estos campos se almacenan en forma de 
cadenas de caracteres. Sin embargo, fa 
explicación es sencilla. En el primer ca- 
pítulo dedicado a este tema se precisó 
que los números se almacenan a modo 
de cadenas de caracteres. Pasando por 
alto el empleo de las funciones STR$ y 
VAL que resulta poco eficiente, se dis- 
pone de las funciones del tipo MKI$, 
MKS$y MKD$y de las CVI, CVS y CVD. 
Las primeras permiten convertir un nú- 
mero en una cadena, recurriendo para 
ello a un formato especial que permite 
ahorrar memoria; el segundo bloque de 
funciones permite recuperar los núme- 
ros originales. Las funciones relaciona- 
das se diferencian entre sí en el tipo de 
variables numéricas con las que traba- 
jan, Evidentemente, es necesario cono- 
cer el tipo de variables a emplear y, por 
supuesto, hay que ser consecuentes con 
la elección y realizar las transformacio- 
nes de números a cadenas y viceversa 
con las funciones adecuadas. 

Para almacenar el número de páginas 
es conveniente recurrir a variables de 
tipo entero; en primer lugar ello permi- 
te ahorrar memoria y, desde luego, un 
libro no suele tener medias hojas y tam- 
poco suele ser tan largo como para su- 
perar las 65.000 páginas. Así pues, di- 
cho campo se almacenará con la preci- 
sión de un número entero. El número de 



caracteres que emplea la función MKÍ$ 
para almacenar una variable de tipo en- 
tero es de dos bytes, por lo que la lon- 
gitud del campo es de dos caracteres. 

Tampoco cabe la menor duda en la 
elección del tipo de campo para alma- 
cenar el Año, ya que se trata de un dato 
numérico. Este puede almacenarse 
como tal en una variable entera, o bien 
a modo de cadena de caracteres. En el 
primer paso serán necesarios campos 
con una longitud de dos caracteres, y en 
el segundo de cuatro caracteres. Para el 
ejemplo que nos ocupa seleccionare- 
mos el tipo numérico y, dentro de éste, 
la precisión de entero. 

En cuanto al Código y a la Signatura, 
como pueden estar constituidos por ca- 
racteres alfabéticos y numéricos, será 
preciso almacenarlos directamente en 
una cadena; al efecto se reservarán 10 
caracteres para cada uno de ambos 
campos. En resumen, los diferentes 
campos de cada registro, así como su 
naturaleza y longitudes respectivas que- 
dan reflejados en la tabla adjunta. 

Una vez definida la estructura de los 
campos, es necesario elegir el número 
de canal a emplear. Ciertamente, este 
no es un factor trascendente sino que 
tan sólo debe contemplar que su núme- 
ro no coincida con el de un canal ya 
abierto. 

A la hora de abrir el canal es preciso 
conocer el nombre del archivo que se 
desea abrir y la longitud de cada uno de 



los campos. En nuestro caso, la orden 
para efectuar esta operación es la si- 
guiente: 

OREN /'DATOS",! 1 4 

Este formato puede parecer en princi- 
pio un tanto rígido; aunque no lo es tan- 
to. Así, por ejemplo, no es necesario co- 
nocer previamente el nombre del archi- 
vo que se desea abrir; este parámetro, 
que en nuestro caso aparece como una 
constante de cadena, puede ser sustitui- 
do por una variable del mismo tipo. Lo 
mismo cabe afirmar de los restantes pa- 
rámetros de esta instrucción. 

El segundo paso a realizar es la defi- 
nición de la estructura de los registros, 
para lo cual se utiliza la instrucción 
FIELD. Por ejemplo: 

FIELD#t ,40 AS títulos, 30 AS autorft 20 
AS editor$, 2 AS numpag$, 2 AS ano$, 
1 0 AS codi$, 10 AS signat$ 

Esta especificación es necesaria, ya 
que para trabajar con uno de estos ar- 
chivos el ordenador necesita crear una 
zona de memoria asociada a cada uno 
de los canales. Esta zona de memoria 
temporal (buffer) actúa como interme- 
diario para la transferencia de informa- 
ción entre la memoria del ordenador y 
el archivo externo. En el buffer están re- 
servadas zonas para cada uno de los 
campos que se van a emplear. Cada una 
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de estas zonas puede manejarse de for- 
ma independiente, lo cual significa que 
pueden introducirse los datos que se de- 
seen y en el orden que parezca más con- 
veniente. 



Creando un programa para 
manejar archivos de acceso 
directo 

Una vez estudiado el método para la 
apertura del archivo y decidida su es- 
tructura, se está en condiciones de crear 
un programa para su tratamiento. 

Antes de empezar la codificación del 
programa, es necesario decidir qué ope- 
raciones deseamos que éste sea capaz 
de realizar. 

En nuestro caso, crearemos un pro- 
grama que realice las operaciones bási- 
cas en un archivo de acceso directo; es- 
tas operaciones son las de creación, ac- 
tualización y consulta. 

La estructura de nuestro programa 
consistirá en una zona central, encarga- 
da de la apertura del archivo y de la se- 
lección de la operación a realizar, y de 
un surtido de subrutinas especializadas. 

Cada operación a realizar será ejecu- 
tada por una subrutina distinta creada 
al efecto; tras ejecutarse, la secuencia 
del programa volverá a la zona de se- 
lección de las siguientes operaciones a 
realizar. 

A continuación se confeccionará el 
cuerpo principal del programa que in- 
cluye el menú para la selección de la 
opción deseada. 

Las dos primeras líneas del programa 
(1000 y 1010) abren el archivo y crean 
el buffer de trabajo: 

1000 ÜPENX,#1 ."DATOS", 114 
1010 FIELDffl, 40 AS tiulo$ 30 AS autor$ 20 AS editor^ 
2 AS numpag?, 2 AS ano$ 10 AS codiS, 10 AS sig- 
nat$ 

Acto seguido llega el momento de bo- 
rrar la pantalla e inicializar las variables 
NUM% y NMAX% cuya misión es actuar 
como contadores. En el caso de que el 
ordenador sea del tipo IBM-PC o MSX, 
también será preciso eliminar de la pan- 
talla los recordatorios de las funciones 
asignadas a las teclas de función. Todo 
ello corre a cargo de las siguientes lí- 
neas de programa: 








im 


~ r r 






su 




íi 


\m :: 




m 


iüíl : • ;T;1 


-i-i lUgk 





La estructura de un archivo de acceso directo guarda un cierto paralelismo con la 
organización de los archivos tradicionales. La información se agrupa en bloques 
denominados registros y éstos , a su vez engloban a unconjunto de campos , 



1020 NUM%=0 : 2000 a la 2040 presentan por pantalla 

1900 CLS : KEY 0FF el menú de selección. La vísualización 

de las opciones se realiza mediante una 
La zona comprendida entre las líneas serie de instrucciones PRINT, antepo- 




La$ diferencias de acceso que presenta un archivo de acceso directo frente a un 
archivo secuencia! son perceptibles en las diferencias que se 
manifiestan entre un disco de audío y una casete , 
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Las bases de datos informatizadas 
presentan notables ventajas sobre 
los archivos tradicionales. Las 
principales contrapartidas se 
centran en el ahorro de espacio, 
tiempo de manipulación y 
versatilidad. 



Puede que resulte un poco extraño el 
hecho de tener que seleccionar el tipo 
de variable numérica a emplear, ya que 
estos campos se almacenan en forma de 
cadenas de caracteres. Sin embargo, la 
explicación es sencilla. En el primer ca- 
pítulo dedicado a este tema se precisó 
que los números se almacenan a modo 
de cadenas de caracteres. Pasando por 
alto el empleo de las funciones STR$ y 
VAL que resulta poco eficiente, se dis- 
pone de las funciones del tipo MKI$, 
MKS$y MKD$y de las CVI, CVS y CVD. 
Las primeras permiten convertir un nu- 
mero en una cadena, recurriendo para 
ello a un formato especial que permite 
ahorrar memoria; el segundo bloque de 
funciones permite recuperar los núme- 
ros originales. Las funciones relaciona- 
das se diferencian entre sí en el tipo de 
variables numéricas con las que traba- 
jan. Evidentemente, es necesario cono- 
cer el tipo de variables a emplear y, por 
supuesto, hay que ser consecuentes con 
la elección y realizar las transformacio- 
nes de números a cadenas y viceversa 
con las funciones adecuadas. 

Para almacenar e) número de páginas 
es conveniente recurrir a variables de 
tipo entero; en primer lugar ello permi- 
te ahorrar memoria y, desde luego, un 
libro no suele tener medias hojas y tam- 
poco suele ser tan largo como para su- 
perar las 65.000 páginas. Así pues, di- 
cho campo se almacenará con la preci- 
sión de un número entero. El número de 



caracteres que emplea la función MKI$ 
para almacenar una variable de tipo en- 
tero es de dos bytes, por lo que la lon- 
gitud del campo es de dos caracteres. 

Tampoco cabe la menor duda en la 
elección del tipo de campo para alma- 
cenar el Año, ya que se trata de un dato 
numérico. Este puede almacenarse 
como tal en una variable entera, o bien 
a modo de cadena de caracteres. En el 
primer paso serán necesarios campos 
con una longitud de dos caracteres, y en 
el segundo de cuatro caracteres. Para el 
ejemplo que nos ocupa seleccionare- 
mos el tipo numérico y, dentro de éste, 
la precisión de entero. 

En cuanto al Código y a la Signatura, 
como pueden e^star constituidos por ca- 
racteres alfabéticos y numéricos, será 
preciso almacenarlos directamente en 
una cadena; al efecto se reservarán 10 
caracteres para cada uno de ambos 
campos. En resumen, los diferentes 
campos de cada registro, así como su 
naturaleza y longitudes respectivas que- 
dan reflejados en la tabla adjunta. 

Una vez definida la estructura de los 
campos, es necesario elegir el número 
de canal a emplear. Ciertamente, este 
no es un factor trascendente sino que 
tan sólo debe contemplar que su núme- 
ro no coincida con el de un canal ya 
abierto. 

A la hora de abrir el canal es preciso 
conocer el nombre del archivo que se 
desea abrir y la longitud de cada uno de 



los campos. En nuestro caso, la orden 
para efectuar esta operación es la si- 
guiente: 

OPEN "R í# ,#1/'DATOS*M14 

Este formato puede parecer en princi- 
pio un tanto rígido; aunque no lo es tan- 
to. Así, por ejemplo, no es necesario co- 
nocer previamente el nombre del archi- 
vo que se desea abrir; este parámetro, 
que en nuestro caso aparece como una 
constante de cadena, puede ser sustitui- 
do por una variable del mismo tipo. Lo 
mismo cabe afirmar de los restantes pa- 
rámetros de esta instrucción. 

El segundo paso a realizar es la defi- 
nición de la estructura de los registros, 
para lo cual se utiliza la instrucción 
FIELO. Por ejemplo: 

F!ELD#1 ,40 AS títulos, 30 AS autoríj* 20 
AS editor$, 2 AS numpag$, 2 AS ano$ 
10 AS codiífc 10 AS signat$ 

Esta especificación es necesaria, ya 
que para trabajar con uno de estos ar- 
chivos el ordenador necesita crear una 
zona de memoria asociada a cada uno 
de los canales. Esta zona de memoria 
temporal (buffer) actúa como interme- 
diario para la transferencia de informa- 
ción entre la memoria del ordenador y 
el archivo externo. En el buffer están re- 
servadas zonas para cada uno do los 
campos que se van a emplear. Cada una 
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de estas zonas puede manejarse de for- 
ma independiente, lo cual significa que 
pueden introducirse ¡os datos que se de- 
seen y en el orden que parezca más con- 
veniente. 

Creando un programa para 
manejar archivos de acceso 
directo 

Una vez estudiado el método para la 
apertura del archivo y decidida su es- 
tructura, se está en condiciones de crear 
un programa para su tratamiento. 

Antes de empezar la codificación del 
programa, es necesario decidir qué ope- 
raciones deseamos que éste sea capaz 
de realizar. 

En nuestro caso, crearemos un pro- 
grama que realice las operaciones bási- 
cas en un archivo de acceso directo; es- 
tas operaciones son las de creación, ac- 
tualización y consulta. 

I La estructura de nuestro programa 
consistirá en una zona central, encarga- 
da de la apertura del archivo y de la se- 
lección de la operación a realizar, y de 
un surtido de subrutinas especializadas. 

Cada operación a realizar será ejecu- 
tada por una subrutina distinta creada 
al efecto; tras ejecutarse, la secuencia 
del programa volverá a la zona de se- 
lección de las siguientes operaciones a 
realizar. 

A continuación se confeccionará el 
cuerpo principal del programa que in- 
cluye el menú para la selección de la 
opción deseada. 

Las dos primeras líneas del programa 
0000 y 1010) abren el archivo y crean 
el buffer de trabajo: 

1000 0PENX r #1/ J DAT0S J ',114 
1010 FIELO #1, 40 AS tiulc$ 30 AS autor$ 20 AS editor^ 
2 AS numpag?, 2 AS ano$ 10 AS cod¡$ 10 AS sig- 
nat$ 

Acto seguido llega el momento de bo- 
rrar la pantalla e inicializar las variables 
NUM% y IMMAX% cuya misión es actuar 
como contadores. En el caso de que el 
ordenador sea del tipo 1BM-PC o MSX, 
también será preciso eliminar de la pan- 
talla los recordatorios de las funciones 
asignadas a las teclas de función. Todo 
ello corre a cargo de las siguientes lí- 
neas de programa: 




I La estructura de un archivo de acceso directo guarda un cierto paralelismo con la 
organización de los archivos tradicionales . La información se agrupa en bloques 
denominados registros y éstos t a su vez engloban a unconjunto de campos. 



1020 NUM%=0 : NMAXO 2000 a la 2040 presentan por pantalla 

1 900 CLS : KEY 0EF el menú de selección. La visualización 

de las opciones se realiza mediante una 
La zona comprendida entre las líneas serie de instrucciones PRINT, antepo- 




I Las diferencias de acceso que presenta un archivo de acceso directo frente a un 
archivo secuencial son perceptibles en las diferencias que se 
manifiestan entre un disco de audio y una casete. 
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I I REGISTRO 



En tos archivos de acceso directo . el ordenador $e encarga de tr 
almacenando tos distintos registros en el orden definido por su clave 
Desde fuego , queda abierta la posibilidad de incluir nuevos 
registros cuyo número de clave esté comprendido entre otros dos 



níendo a cada una de las operaciones 
que se pueden realizar un número que 
permitirá seleccionarlas: 

1950 PRINT 

2000 PRINT TAB(28j; rJ MENU DE SELECCION" : PRINT : 
PRINT 

2010 PRINT TAB(25);"1- CREACION DEL ARCHIVO" : 
PRINT 

2020 PRINT TAB(25j;"2— LECTURA DE UN REGISTRO" : 
PRINT 

2030 PRINT TA8(25);‘ r 3— MODIFICACION DE UN REGIS- 
TRO" : PRINT 

2040 PRINTTA8(25);"4— LISTADO DEL ARCHIVO" : PRINT 

Con este menú a la vista, el usuario 
debe seleccionar la operación que de- 
sea realizar. Para que tal selección sea 
efectiva sin más que pulsar una tecla, 
es necesario recurrir a Ja función IN- 
KEY$. 

Nuestro programa recoge el carácter 
pulsado en la variable B$ y, acto segui- 
do, se comprueba si dicha variable tie- 
ne algún contenido. De no poseer con- 
tenido alguno puede extraerse ía con- 
clusión de que no se ha pulsado ningu- 
na tecla, por lo que es preciso maestrear 
de nuevo el teclado hasta que se pulse 



una tecla. En tal situación el programa 
queda encerrado dentro de un bucle del 
que no saldrá hasta que el usuario se- 
leccione una opción. 

2050 BfclNKEY$; IF B$=" rH THEN GOTO 2050 

Las líneas que van de la 2060 a ía 
2080 gestionan la selección realizada. 
Aí efecto, cada vez que se pulsa una te- 
cla, el programa analiza si ésta corres- 
ponde a una de las posibles opciones. 
En caso negativo, se vuelve a examinar 
de nuevo el teclado. 

Si la tecla pulsada corresponde a una 
de la posibles opciones, la instrucción 
ON GOSUB de la línea 2080 ordenará 
el salto a la rutina adecuada. 

La línea 2090 provoca el retorno al 
menú una vez que concluye la ejecución 
de la subrutina a la que se ha bifurcado. 

2060 ca racter-ASC(B$) — 4B 

2070 IF carácter < 1 0R carácter > 4 THEN GOTO 2050 
2080 0N carácter GOSUB 10000, 20000, 30000, 40000 
2090 GOTO 1900 

Aquí concluye el cuerpo principal del 
programa. A partir de este punto se en- 



cuentran las subrutinas encargadas de 
procesar las distintas opciones. 

Sí se elige la opción 1 (creación del 
archivo), se ejecutará la siguiente ruti- 
na que solicita la introducción de los da- 
tos para cada registro: 

10000 CLS : INPUT 'TÍTULO DEL LIBRO"; T$ 

10020 IF T$="FIN" THEN RETURN 
10050 INPUT "AUTOR"; A$ 

10100 INPUT "EDITOR", E$ 

10150 INPUT "NUMERO DE PAGINAS"; N$ 

10200 INPUT "ANO”; Y$ 

10250 INPUT "CODIGO”; C$ 

10300 INPUT "SIGNATURA"; S$ 

A continuación esto datos deben ser 
transferidos al buffer, realizando, al 
mismo tiempo, la operación de ajustar 
cada dato a las características de su res- 
pectivo campo; ello supone adecuar el 
dato al tipo de variable que se utilice: 

10310 LSET titulo$=T$ 

10320 LSET autor$^A$ 

10330 LSET editor$=E$ 

10340 RSET numpag$=MK!$(VAL(NDJ 
10350 RSET ano$^MKI$|VAL(YS)| 
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10360 LSET codi$=C$ 

10370 LSET signa$=S$ 

Es importante ir actualizando el con- 
tador que sirve para conocer qué posi- 
ción relativa ocupa el registro dentro del 
archivo que se está creando. Dicha po- 
sición viene dada por el valor de la va- 
riable NUM%: 

103 SO NUM%=NUMV1 

También es preciso saber cuántos re- 
gistros han sido creados para r por ejem- 
plo, cuando sea necesario listarlos, rea- 
lizar la operación sin que se produzca 
un error: 



10390 NMAX%=NMAX%+1 

Para transferir el contenido del regis- 
tro a la posición deseada del archivo se 
emplea una instrucción PUT. En ella se 
especifica el número de canal asociado 
al archivo en cuestión y ¡a posición deí 
registro dentro del archivo: 

10400 PUTffl, NUM% 

Tras ello hay que pasar a la fase de in- 
troducción de otro registro, de lo cual se 
ocupa la instrucción 10410. 

A la vista de las instrucciones descri- 
tas puede parecer que esta rutina no tie- 
ne salida, y que constituye un bucle ce- 



rrado por completo. Sin embargo se ha 
previsto una salida. 

Esta se encuentra en la línea 10020; 
en ella se examina el campo de título 
sobre la variable T$ y en caso de que 
se haya introducido la palabra Fin, la se- 
cuencia de ejecución volverá al menú 
principal del programa. 

10410 GOTO 10000 
10420 RETUR N 

En la línea 10420 concluye con el co- 
mando RETURN la subrutina de crea- 
ción del archivo. 

La próxima subrutina a crear es la de 
consulta de registros del archivo, la cual 





El canal actúa a modo de ente intermedio a través dei cual los datos pueden 
pasar del programa o proceso en curso hacia el archivo. 
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CREACION 




MODIFICACION 





CONSULTA 




Las tres operaciones fundamentales que se 
pueden realizar con un archivo son ; creación, 
consulta y modificación o actualización del 
contenido ■. 



está asociada a fa opción Z dei menú 
principal. 

La primera opción que debe realizar 
esta subrutina es ía de consultar al 
usuario cuál es el registro que se desea 
leer: 



20000 CLS : INPUT "QUE REGISTRO DESEAS LEER"; 
NUM% 

A continuación, y una vez que se co- 
noce el registro que se desea consultar, 
se ejecutará una instrucción GET, la 



cual accede al disco y lee el registro 
cuyo número se ha solicitado: 

20010 GET#1, NUM% 

Y por fin, una vez que el registro a pa- 
sado ai buffer, ía siguiente operación es 
mostrar por pantalla el contenido del 
mismo. Esta tarea se puede realizar sen- 
cillamente mediante una secuencia de 
instrucciones PRINT: 

20020 PRINT "1— TITULO"; titulo? 

20030 PRINT "2— AUTOR"; autor$ 

20040 PRINT "3— EDITOR"; editcr| 



20050 PRINT "4-NUMERQ DE PAGINAS"; CVI {numpag$l 
20060 PRINT "5— ANO”; CVI(anoí 
20070 PRINT '6— CODIGO"; codi$ 

20080 PRINT "7— SIGNATURA"; sígna$ 

20090 LET B$=1NKEY$ : IF B$= J '" THEN GOTO 20090 

Tras presentar en la pantalla el con- 
tenido del registro, hay que regresar ai 
programa principal por medio del co- 
rrespondiente RETUR N: 

20100 RETUflN 

La subrutina asociada a la opción 3 
(modificación de un registro), muestra 
en pantalla ef contenido del registro que 
se solicite a través de una llamada a la 
subrutina de lectura de un registro. 

El saíto a Ja subrutina de lectura se 
produce al ejecutar la instrucción GO- 
SU8 20010 de la línea 30010, 

Acto seguido se ofrece al usuario Ja 
posibilidad de renunciar a la modifica- 
ción de campos, sin más que responder 
con una acción sobre la tecla 8. En todo 
caso, la situación habitual en este pun- 
to será la de responder a la pregunta 
"QUE CAMPO DESEAS MODIFICAR" 
con el número del campo oportuno. Este 
número, almacenado en la variable C, 
será utilizado para la instrucción ON 
GOSUB de la línea 30030 para bifurcar 
la secuencia de ejecución hacia la zona 
adecuada. 

La zona de programa que sigue coin- 
cide con ia asociada al tratamiento de la 
opción descrita: 




i 






MKI$ 



■ La función MKI$se encarga de empaquetar un número en una cadena, 
permitiendo con ello ahorrar memoria frente al uso de la función STR$ 
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30000 CLS : INPUT "QUE REGISTRO DESEAS MODIFI 
CAR"; NUM% 

30010 GOSUB 20010 

3001 5 PRINT "SI NO DESEAS MODIFICAR NINGUNO PUL 
SA8" 

30020 INPUT "QUE CAMPO DESEAS MODIFICAR"; C 
30030 ON C GOSUB 30100, 30200, 30300, 30400, 30500, 
30600, 30700 
30040 RETURN 
30100 INPUT “TITULO"; T$ 

30110 LSETtitulofcT$ 

30120 PUT#1.NUM%: RETURN 
30200 INPUT "AUTOR"; A$ 

30210 LSET autor^A? 

30220 PUTK1,NUM%: RETURN 
30300 INPUT "EDITOR"; E$ 

30310 LSET editor$=E$ 

30320 RETURN 

30400 INPUT "NUMERO DE PAGINAS"; N$ 

30410 RSET numpag$=N$ 

30420 RETURN 
30500 INPUT "ANO"; Y$ 

30510 RSETano$=Y$ 

30520 RETURN 
30600 INPUT "CODIGO"; C$ 

30610 LSET codí$=C$ 

30620 RETURN 

30700 INPT "SIGNATURA", S$ 

30710 LSET s¡gna$=S$ 

30720 RETURN 

La cuarta y última opción del menú da 
paso al listado de un archivo. Su puesta 
en práctica se fundamenta en sucesivas 
llamadas a la subrutina de lectura de un 
registro. Ello tiene lugar dentro del si- 
guiente bucle: 

43000 CLS : F0R NUM%=1 T0 NMAX% 

40010 GOSUB 20010 
40020 NEXT I 
40030 RETURN 

El listado adjunto muestra el progra- 



I Pantalla asociada a la opción de modificación de un 
registro. Los contenidos que aparecen tras los diversos 
campos proceden de un ejemplo de ficha bibliográfica 



ESTRUCTURA DE CADA 




REGISTRO 




Nombre 
del campo 


Número de 
caracteres 


Tipo de campo 


Título 


40 


Alfanumérico 


Autor 


30 


Alfanumérico 


Editorial 


20 


Alfanumérico 


Número pág. 


2 


Número entero 


Ano 


2 


Número entero 


Código 


10 


Alfanumérico 


Signatura 


10 


Alfanumérico 


Número total de caracteres en cada registro: 1 14. 






MENU DE SELECCION 

1 CREACION DEL ARCHIVO 

2 LECTURA DE UN REGISTRO 

3 MODIFICACION DE UN REGISTRO 

4 LISTADO DE UN ARCHIVO 




I 



Pantalla de entrada al programa con el menú 

de opciones. Su presentación corre a 

cargo de la rutina o cuerpo principal del programa. 



QUE REGISTRO DESEAS MODIFICAR 

37 

1 TITULO: SPECTRUM TOOL 

2 AUTOR: ITALIANO 

3 EDITOR: INGELEK 

4 AÑO: 1985 

5 CODIGO: 2345 

6 SIGNATURA: 1234 

QUE CAMPO DESEAS MODfFICAR 
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1000 OPEN'R',*!, "DATOS", 114 

1010 FfELD*!, 40 AS tituloí, 30 AS autorí, 20 AS editor$, 

2 AS numpagí, 2 AS ano$, 10 AS codií, 10 AS signat$ 

1020 NLIMf =0 : NMA)í=0 
1900 CLS : KEY OFF 
1950 PRINT 

2000 FR1NT TABÍ28); "MENU DE SELECCION : PRINT : PRENT 
2010 PRINT TAB(25); "1- CREACION DEL ARCHIVO" : PRINT 
2020 PRIMT TAB(25); '2- LECTURA DE UN REGISTRO" : PRINT 
2030 PRINT TABÍ25); "3- MODIFICACION DE UN REGISTRO' : PRINT 
2040 PRINT TAB<25); "4- LISTADO DEL ARCHIVO" : PRINT 
2050 BÍ=1NKE Ví : IF B$=" " THEN GOTO 2050 
2060 te ra ci er= A SC (B t) - 48 

2070 IF carácter < 1 OR carácter > 4 THEN GOTO 2050 



20030 PRINT “2- AUTOR"; autor! 
20040 
20050 
2ÜG60 
20070 
20 080 



PRINT " 
PRINT H 
PRINT ' 
PRINT' 
PRINT' 



“3- EDITOR"; editor$ 

"4- NUMERO OE PAGINAS”; CVI(numpagt) 

"5- ANO"; CVl(anoí) 

"6-C0DIG0”; C0di$ 

"7- SIGNATURA"; Signeí 
20090 LET B$=!NKEVt : IF 6$-" " THEN GOTO 20090 
20100 RETUR N 

30000 CLS : INPUT "QUE REGISTRO DESEAS MODIFICAR"; NUM£ 

30010 GOSUB 20010 

30015 PRINT H SI NO DESEAS MODIFICAR NINGUNO PULSA B" 

30020 INPUT "QUE CAMPO DESEAS MODIFICAR"; C 

30030 ON C GOSUB 30100, 30200, 30300, 30400, 30500 30600 30700 

30040 RETURN 



2030 ON carácter GOSUB 1Ü000, 20000, 30000, 40000 


30100 INPUT "TITULO"; T$ 
30110 LSET tituloÍ=T$ 


2090 COTO 1900 


10000 CLS : INPUT "TITULO DEL LIBRO", T$ 


30120 PUT't, NUMS : RETURN 


10020 IF T$=“FIN" THEN RETURN 


30200 INPUT "AUTOR"; A$ 


10050 INPUT "AUTOR"; A$ 


30210 LSET autor$=A$ 


10 tOO INPUT "EDITOR"; E$ 


30220 PUT* 1 , NUMÜ : RETURN 


10150 'INPUT "NUMERO DE PAGINAS"; N$ 


30300 INPUT "EDITOR", E$ 


10200 INPUT "ANO", Y$ 


30310 LSET e<Jitor$=E$ 


10250 INPUT "CODIGO"; C$ 


30320 RETURN 


10300 INPUT "SIGNATURA"; S$ 


30400 INPUT "NUMERO DE PAGINAS"; Ní 


10310 LSET ttUllO$=T$ 


30410 RSET numpeg$-NÍ 


10320 LSET autorí=A$ 


30420 RETURN 


10330 LSET editor$=E$ 


30500 INPUT "ANO"; Y$ 


10340 RSET numpag$=MKI$(VAL(N$)) 


30510 RSET ano$=Y$ 


10350 RSET ar>o$=MKI$(VAL(Y$)) 


30520 RETURN 


10360 LSET COdi$=C$ 


30600 INPUT "CODIGO"; C'$ 


10370 LSET signa$=S$ 


30610 LSET codf$:C$ ’ 


10360 NUMS=NUMS*1 


30620 RETURN 


10390 NMAXSrNMAX** 1 


30700 INPUT “SIGNATURA"; SS 


10400 PUT*I,NUM* 


30710 LSET signa$=S$ 


10410 GOTO 10000 


30720 RETURN 


10420 RETURN 


40000 CLS: FOR NUM*=t TO NMAX2 


20000 CLS : INPUT "QUE REGISTRO DESEAS LEER"; NUM* 


40010 GOSUB 20010 
40020 NEXT 1 
40030 RETURN 


i y ot i i ( iiul lí6 

20020 PRINT " F -TITULO"; titulo* 



Mi Listado dsf PROGRAMA. 



ma en su totalidad- Tal como cabe de- 
ducir de las descripciones realizadas, la 
creación y tratamiento de archivos alea- 
torios o de acceso directo no presenta 
mayores complicaciones de las deriva- 
das del propio conocimiento de los co- 



mandos y funciones BASIC especializa- 
das en su manipulación. Al respecto, 
cabe precisar que en el ejemplo pro- 
puesto se ha utilizado un repertorio es- 
pecífico que estará sujeto a variaciones 
según el dialecto BASIC que equipe af 



ordenador utilizado. Por ello, antes de 
proceder a la instrucción de este progra- 
ma, habrá que revisar la equivalencia de 
comandos y funciones de su dialecto 
BASIC con respecto al repertorio em- 
pleado en nuestro ejemplo práctico. 
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Agenda 

telefónica 



Afianzando conceptos 




n anteriores capí- 
tulos de Ja obra se 
ha hablado largo y 
tendido del trata- 
miento que pue- 
den recibir los archivos aleatorios o de 
acceso directo. En esta ocasión se va a 
nablar de nuevo de ellos, aunque desde 
una perspectiva totalmente práctica; 
concretamente, desarrollando un pro- 
grama de aplicación que resultará de 
plena utilidad. 

A3 tiempo que se confecciona el pro- 
grama, se expondrán las peculiaridades 
que en este aspecto presenta el BASIC 
de los equipos ATARI; dialecto éste que 
se adoptará como herramienta de pro- 
gramación. Por lo tanto, a lo largo de los 
próximos párrafos se introducirán y es- 
tudiarán con detalles una serie de nue- 
vos comandos relativos al manejo de los 
archivos en disco, específicos de estas 
máquinas. 

Como ya se ha precisado en otras oca- 
siones, los poseedores de máquinas do- 
tadas de otra versión del lenguaje BA- 
SIC no deben echar en saco roto este ca- 
pítulo. La traducción al BASIC respecti- 
vo de cada ordenadora se podrá realizar 
muy fácilmente, sin más que establecer 
la equivalencia de unos pocos coman- 
dos, según se indica en las diferentes 
tablas de conversión publicadas a lo lar- 
go de la obra. 



Una agenda informatizada 

El programa-ejemplo a codificar coin- 
cide con una agenda de direcciones y te- 
léfonos- La analogía de la agenda eon- 
.encíonal con los archivos informáticos 
es enorme. Así, una agenda constituye 
en sí un archivo, entendiendo por archi- 
vo a un conjunto de informaciones rela- 
:íonadas entre sí. 

La agenda, como conjunto, es divisi- 
:le en otras partes que son las diferen- 
tes anotaciones para cada persona o en- 
: dad, lo que coincide totalmente con el 
:oncepto informático de registro. Estas 
anotaciones de la agenda estarán com- 
ruestas, a su vez, por el nombre, la di- 
rección, ciudad, el teléfono... Elementos 
que constituyen lo que en términos ¡n- 



I Con el programa descrito en el texto se 
convierte al ordenador en una fiel y útil 
agenda de direcciones y teléfonos. 



formáticos se denominan campos de un 
registro. 

En definitiva, nuestra agenda infor- 
matizada estará almacenada en un ar- 
chivo (en este caso en disco, para poder 
utilizar el acceso aleatorio), dividido en 
registros que contendrán los datos rela- 
tivos a una persona depositados en los 
respectivos campos. 

Antes de seguir adelante, hay que es- 
tablecer un número de campos que se 
van a necesitar, así como su longitud, 
para poder ¡r definiendo en consecuen- 
cia la estructura real de la agenda infor- 
mática. 

Un primer campo podría ser el reser- 
vado al nombre de cada persona. En él 
se incluirá tanto el nombre de pila como 
los respectivos apellidos. Este campo va 
a tener una importancia fundamental en 
nuestro programa, ya que para evitar 
que éste se complique en exceso y re- 
sulte demasiado extenso, el campo del 
nombre va a servir de índice; o lo que 



es lo mismo, de clave interna para el ac- 
ceso a la información guardada en la 
agenda. Los restantes campos pueden 
ser los siguientes: 

— Campo de dirección (calle, núme- 
ro, piso, etc ). 

— Campo de ciudad o localidad. 

— Campo de provincia y código pos- 
tal. 

— Campo de número de teléfono (in- 
cluyendo prefijos, etc ). 

La longitud de estos campos se pue- 
de elegir libremente, ya que no está pre- 
fijado ningún valor a priori. 

El siguiente paso es establecer las 
distintas funciones que debe gestionar 
el programa de agenda. Por ejemplo: 

— Búsqueda de un registro específi- 
co. 

— Introducción de un nuevo registro. 

— Listado de todos los registros. 
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SUBCADENA 1 





SUBCADENA 2 



\/ 

SUBCADENA 100 



Las matrices multidimensionales de caracteres se pueden simular en el ATARI 
* troceando » artificialmente una cadena suficientemente larga 
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INDICE 



PEPE 


Pag 1 


PERICO 


Pag 7 


RAMON 


Pag 10 


ROMUALDO 


Pag 6 
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El índice creado con la agenda es el que permitirá el acceso 
a toda la información contenida en ella. 



— Modificación de todos los regis- 
tros. 

— Borrado de un registro. 

— Abandonar el programa, almace- 
nando los datos necesarios. 

Estas seis funciones encierran todo el 
proceso de creación, actualización y al- 
macenamiento deí archivo que consti- 
tuirá la agenda. A partir de ellas se pue- 
de ya definir una primera estructura del 
programa, que va a ser controlado por 
un menú de opciones coincidentes con 
las funciones indicadas, A partir de este 
menú y de la opción elegida en cada mo- 
mento, el programa bifurcará hacia una 



serie de subrutinas que, una vez ejecu- 
tadas, devolverán el control al menú de 
opciones. Dicho menú constituirá el pro- 
grama principal o bucle principal, que se 
ejecutará indefinidamente, hasta que se 
dé paso a la opción de salida del progra- 
ma. 

Se puede ya empezar a codificar el 
programa; comenzando por una zona de 
presentación que consistirá, sencilla- 
mente, en un título centrado mediante 
el comando POSITIQN. Esta es la tarea 
asignada a las instrucciones 10, 20 y 
30. 

Previamente a la codificación del bu- 
cle principal del programa, habrá que 



realizar una subrutina de inicializacíón 
del programa y sus variables; subrutina 
que será Mamada por la línea 40 de ía 
zona de presentación. 

La subrutina de inicializacíón sólo 
será ejecutada una vez al principio del 
programa, por lo que podría haber sido 
escrita directamente en las líneas 30 y 
50 de la presentación. No obstante, se 
ha preferido darle la estructura de sub- 
rutina ya que así queda más claro el pro- 
grama y se ve facilitada la comprobación 
de su correcto funcionamiento. La su- 
brutina de inicialización se ocupará de 
dimensionar y de inicializar las diferen- 
tes variables a utilizar en el programa, 
así como de obtener del disco la infor- 
mación necesaria para que sea posible 
acceder a la agenda con posterioridad. 
Por este motivo, se pospondrá la confec- 
ción de dicha subrutina hasta el mo- 
mento en el que se hayan definido las 
variable necesarias, así como la estruc- 
tura de los ficheros en disco. Hasta que 
llegue ese instante, daremos por su- 
puesto que todas las variables han sido 
adecuadamente dimensionadas. 

Continuando con el programa princi- 
pal, el siguiente paso es crear el bucle 
infinito que se encargue de mantener su 
ejecución. Para ello se empleará una si- 
mulación de estructura REPEAT/UNTIL, 
construida mediante el comando BASIC 
FOR/NEXT: 

60 FOR BUCLE=QTÜ 1 STEPO 

El incremento de la variable BLUCLE 
es 0, por lo que ésta nunca alcanzará el 
valor 1 que determinaría la salida del 
bucle; claro está, excepto que se esta- 
blezca directamente el valor de BUCLE 
en 2, como se hará en la subrutina de 
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El fraccionamiento de una cadena de caracteres se realiza indicando entre 
paréntesis el principio y el fin de la porción a obtener. Esta técnica equivale a la 
puesta en práctica por el comando MID$ 



salida del programa. La penúltima línea 
del bucle principal, como se verá más 
tarde, debe coincidir con la instrucción 
NEXT BUCLE, seguida de la orden END 
que evite la ejecución imprevista de las 
siguientes subrutinas. De esta forma se 
evita además el empleo del comando 
GOTO, que complicaría el seguimiento 
del código. 

Acto seguido hay que visualizar en la 
pantalla el menú de opciones, tarea en- 
comendada a las líneas 70 a la 140. 

Una vez que se tiene en pantalla el 
menú de opciones, hay que solicitar al 
usuario que elija la opción que desee. 
Puesto que el BASIC de ATAR! no po- 
see el comando INKEY$, la captación de 
•a respuesta debe realizarse con el co- 
mando equivalente GET, Este necesita 
a apertura del teclado como dispositivo 
de entrada de datos, lo que se consigue 
mediante una instrucción OPEN: 

150 OPEN# 1,4, 0/'K:" 

En donde el 4 denota una operación 
2 B entrada de datos y "K:" es el código 
de dispositivo correspondiente al tecla- 
do. 

A continuación hay que imprimir en 
pantalla la petición de pulsar una tecla. 
Como quiera que el menú ofrece seis 
: aciones, éstas se elegirán mediante un 
^ jmero comprendido de 1 al 6. Desde 
jego, el programa debe comprobar que 
3 elección es correcta, desechando la 
lulsación de teclas que no sean dígitos 
:el 1 al 6. El comando GET obtiene el 
zudígo ASCII de la tecla pulsada; código 
:ue debe estar comprendido entre el 49 
t el 54 (ambos inclusive) que correspon- 
;en a los dígitos del 1 al 6. Todo ello se 
zodifíca en las líneas de programa que 
■ an a la 1 60 a la 1 90. 

Cabe observar que se ha simulado de 
vjsvo una estructura REPEAT/UNTIL 
en la línea 180, la cual establece la sa- 
ca de este bucle asignando a la varia- 
: e L el valor 2 si la tecla pulsada es co- 
lecta. Si la tecla pulsada no es correc- 
*3 se volverá a ejecutar el bucle sol ¡ci- 
ando la pulsación de una nueva tecla. 

Una vez detectada la opción que de- 
3^3 el usuario, sólo habrá que utilizar 
_^a instrucción de ON/GOSUB para 
secutar la subrutína correspondiente, 
variable selectora ON/GOSUB será 

Al código ASCII de la tecla pulsada 
- =brá que restar el valor 48, para obte- 



ner así un número del 1 al 6 que per- 
mita la bifurcación a las subrutinas in- 
dicadas detrás de la palabra GOSUB. El 
bucle principal concluirá, por tanto, con 
las líneas: 

200 ON T-48 GOSUB 350, 800, 900, 950, 1040, 1110 
210 NEXT BUCLE 
220 END 

Adquisición de los datos 

Para seguir un orden lógico — el cual 
no coincide con e! indicado en el menú 
de opciones— hay que estudiar primero 
la subrutina de introducción en la agen- 
da de un nuevo registro. Es obvio que 
sin ejecutar esta opción al principio, di- 
fícilmente se podrá buscar, modificar o 
eliminar algún registro. La subrutina 
para introducir un nuevo registro empe- 
zará inícializando las variable oportu- 
nas; ésta es, precisamente la misión de 
las líneas 800 a la 830. 

Cada una de Jas variables utilizadas 
almacenara temporalmente la informa- 
ción de cada uno de los campos. Así, 
NOMBRES$ contendrá el nombre com- 
pleto correspondiente a este nuevo re- 
gistro, CALLE$ la dirección, CIUDAD$ la 
localidad de residencia, PROV$ la pro- 
vincia y TEL$ el número de teléfono. To- 
das ellas se inicíalizan con el valor B$, 
que es una cadena constante de 40 ca- 
racteres blancos. El motivo es que otras 
funciones de la agenda utilizarán tam- 



bién estas variables y pueden contener 
otras informaciones no deseadas. 

La línea 820 llama a la subrutina de 
la línea 670, que se encarga de la in- 
troducción por parte del usuario, me- 
diante el teclado, de los datos del nue- 
vo registro. Dicha subrutina será tam- 
bién utilizada por la función de modifi- 
cación de registros. 

Abandonemos pues, momentánea- 
mente, la subrutina de introducción de 
nuevo registro, para estudiar esta ulti- 
ma (líneas de la 670 a la 790). Resulta 
de muy fácil asimilación, ya que se li- 
mita a introducir mediante comandos 
tNPUT los datos requeridos, para, a con- 
tinuación, pedir confirmación al usuario 
de que los datos son correctos. De ser 
así, se vuelve a interrumpir la estructu- 
ra REPEAT/UNTIL, nuevamente simula- 
da (línea 77^) mediante el FOR de la lí- 
nea 700. La entrada de datos con las in- 
ducciones INPUT se realiza después de 
haber ejecutado la subrutina de la línea 
610, la cual imprime en pantalla las ca- 
beceras y valores actuales de los dife- 
rentes campos de un registro de la 
agenda; éstos serán utilizados después 
como referencia del dato cuya entrada 
se está solicitando con el comando IN- 
PUT. Por este motivo se vuelven a ini- 
cializar en blanco las variables de los di- 
ferentes campos, para la función de mo- 
dificación de registros que se verá más 
adelante. Todo ello puede parecer un 
tanto complicado; si bien, hay que con- 
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, 


FOR BUCLE = 0 T01 STEP 0 

m 

• 

* 




REPEAT 

• 

• 

* 


* 

* 

• 

¡F X THEN BUCLE = 2 

• 

• 

• 




* 

* 

* 

1F X THEN BUCLE = 2 

* 

* 

* 


* 

• 

• 

NEXT BUCLE 




« 

* 

UNTIL BUCLE >1 



Simulación de una estructura REPEAT/UNTIL 
por medio del comando POR /N EXT. 



siderar que de esta forma se evita la ne- 
cesidad de escribir varias veces las mis- 
mas líneas en distintas zonas del pro- 
grama. 

Continuando con la subrutina de en- 
trada de un nuevo registro, la cual se 
«aparcó» momentáneamente, cabe se- 
ñalar que en su línea 830 se efectúa 
una llamada a una nueva subrutina, lo- 
calizada ésta entre las líneas de progra- 
ma 480 y 530. Su misión es la de trans- 
formar, carácter a carácter, el conteni- 
do de la variable IM0JV1BHE$, de forma 
que quede en mayúsculas {línea 510) y 
desprovisto de todo carácter distinto de 
una letra del abecedario {línea 520). 

El objeto de esta transformación no es 
otro que crear un índice estandarizado 
que permita acceder a través del mismo 
a los restantes campos de información 
de la agenda. Para no dilatar en exceso 
el programa, sólo se va a codificar la 
creación de un índice para la localiza- 
ción de registros por su nombre; aun- 
que, bien es cierto, que también se po- 
dría realizar de la misma forma para ac- 
ceder al registro por el campo de direc- 
ción, de ciudad o de teléfono, sin más 
que crear un índice para cada uno de es- 
tos campos. Así pues, en la variable 
NOM$ se obtendrá el nombre en mayús- 
culas y sin signos extraños del registro 
en curso. Este valor será introducido en 
la cadena N$, que constituirá el índice 



de los nombres de los registros que es- 
tén almacenados en el disco. De la ac- 
tualización de este índice con el nuevo 
nombre se encarga la siguiente línea: 

840 N$P*4ü-39, P*40|=NGM$: N$40(X)1)= f< rl 

La variable N$se supone previamen- 
te dimensionada con 4001 caracteres. 
Esto es así porque el BASIC del ATARI 
no admite matrices multidimensionales 
de cadenas de caracteres; de ahí que 
sea necesario simularlas mediante una 
única cadena que será artificialmente 
«cortada» en los trozos oportunos. 

Como la longitud máxima del nombre 
es de 40 caracteres (longitud adoptada 
para ese campo), y se ha previsto una 
capacidad máxima de 100 registros en 
la agenda (cantidad que puede ser mo- 
dificada a voluntad), esto hace un total 
de 40*1 00=4000 caracteres, que serán 
necesarios para el índice. Cada subca- 
dena, dentro de la cadena N$, será lo- 
calizada gracias a la variable P, que con- 
tendrá en todo momento e! número de 
posición del siguiente registro libre, con 
lo que el nombre para el índice del nue- 
vo registro guardado hasta ahora en 
NOM$v se almacenará en N$(P*40-39, 
PMG). El hecho de ordenar que el últi- 
mo carácter de N$ sea " ", se debe a 
que ai asignar un valor a una subcade- 
na de N$, la longitud de ésta queda re- 



cortada a P*40, lo que podría dar lugar 
a errores al querer buscar posterior- 
mente una subcadena en I\l$. 

Creación del archivo de acceso 
aleatorio 

Una vez actualizado el índice, sólo 
queda almacenar el registro en el archi- 
vo del disco; tarea ésta cuya ejecución 
corresponde a las líneas de la 850 a la 
890. 

En la línea 850 se abre el archivo 
AGENDA.DAT en modalidad APPEND 
{ver figura adjunta), con lo que el nuevo 
registro se podrá incorporar al final del 
archivo. Pero, ¿qué ocurre si el progra- 
ma es la primera vez que se ejecuta y 
no existe todavía en el disco? Pues que 
se producirá un error de «archivo no en- 
contrado». El comando TRAP de esta 
misma línea, hará que al producirse ese 
error se derive la ejecución del progra- 
ma a la línea 890, en la que se creará 
por vez primera el archivo AGEN- 
DA. DAT. 

Los archivos de acceso aleatorio det 
ATARI no son diferentes a los de acce- 
so secuencia!, como ocurre en otras ver- 
siones del BASIC. En éstos se puede ob- 
tener la posición exacta del disco en la 
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que se graba un registro y almacenaría 
en alguna variable, para, posteriormen- 
te, acceder directamente a esa posición. 
El comando del BASIC-ATARI que se 
encarga de tal cometido es NOTE, cuyo 
formato es el siguiente: 

NOTE # <canal>, <var. 1>, <var. 2> 

El parámetro <canal>es el número 
:dentificador de un archivo previamente 
abierto en las modalidades WRITE, AR- 
PE ND o URDATE, mientras que <var. 
1>, <var 2>, son dos variables numé- 
ricas. 

El funcionamiento de este comando 
es el siguiente: la unidad de disco (o 
más bien el D.O.S.) posee un puntero 
que señala al sector y aí byte concreto 
de dicho sector al que se está accedien- 
do en cada momento. El comando NOTE 
accede a ese puntero y almacena el nú- 
mero de sector en la primera variable 
específica (<var. 1>) y e¡ número del 
□yte de ese sector en <var, 2>. Una vez 
leídos estos valores, no queda más que 
grabar la información mediante in 
PRINT# o un RUT#. Como se puede ver 
en el programa de agenda, la línea 860 
obtiene con NOTE la posición dei disco 
en la que se va a grabar la información 
■ después la almacena en la matriz nu- 
mérica bidimensional INDICE^,), para sa- 



ber dónde encontrarla cuando sea ne- 
cesario. Seguidamente «imprime* en 
esa posición los diferentes campos del 
registro y cierra el archivo, con lo que 
la información queda ya a buen recau- 
do; tras ello actualiza la variable P para 
el siguiente acceso y se devuelve al or- 
denador el control de errores mediante 
TRAP 40000. Con ello finaliza la subru- 
tina de introducción de un nuevo regis- 
tro y se regresa al programa principal 
para presentar en pantalla el menú de 
opciones. 



En busca del registro perdido 

Para recuperar un registro grabado en 
disco se pulsará ía tecla 1, con lo que 
el programa saltará a la subrutina de la 
línea 350, la cual se extiende hasta la 
430. 

En primer lugar se pierde el nombre 
que se desea buscar, almacenándolo 
mediante un INPUT en la variable NOM- 
BRE$. La variable POS empieza con va- 
lor 1, e irá recorriendo uno a uno todos 
los caracteres ocupados de hasta 
hallar una equivalencia entre el nom- 
bre a buscar (almacenado en NÜM$) y 
una subcadena de N$; dicha misión se 
encomienda a la subrutina llamada en 



la línea 380 y que ocupa las líneas com- 
prendidas entre ía 440 y 470. 

Una vez localiza el nombre en cues- 
tión, se halla el valor de la variable CLA- 
VE. Este coincidirá con el número de re- 
gistro en el que está guardada la infor- 
mación solicitada. Acto seguido se ac- 
tualiza POS, por si ese nombre no es el 
deseado y hay que seguir buscando. 
Esto es así debido a que dos registros 
pueden tener el mismo nombre, por ío 
que al solicitar ese nombre obtendrán 
los dos. 

La subrutina que nos ocupa devolve- 
rá el control al punto de llamada cuan- 
do encuentre el nombre buscado, o bien 
cuando no encuentre ese nombre en 
todo el índice; es este último caso, re- 
tornará con ef valor de CLAVE 0. De 
acuerdo al valor devuelto como clave, ía 
subrutina de búsqueda de registro im- 
primirá el mensaje de «no encontrado» 
y volverá al programa principal cuando 
sea CLAVE =0, No obstante, si el conte- 
nido de CLAVE es distinto de 0, pasará 
a leer ese registro del disco mediante la 
subrutina llamada en la línea 400, la 
cual se extiende desde 540 hasta la lí- 
nea de programa 600. 

Esta subrutina abre el archivo AGEN- 
DA.DAT que contiene la información de 
la agenda, en modo READ. Para acceder 
de forma aleatoria a ía información 





r Pantalla con el menú de Visualización en pantalla de un posible registro de 

i opciones que da entrada al almacenamiento en la agenda telefónica 

programa «agenda telefónica *. del programa ejemplo. 
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OPENttl, MODO, 0 , ‘'(ARCHIVO) ' 



1 



i 



NUM 


MODO 


6 


.... ACCESO A DIRECTORIO 


4 


.... READ (solo lectura) 


8 


.... WRITE (solo escritura) 


9 


.... APPEND ( añadir registros } 


12 


.... UPDATE ( lectura y escritura 
en acceso aleatorio) 



Cuadro de modos 
de acceso a un 
archivo. 



guardada en él, será necesario utilizar 
el comando del BASIC-ATARJ: POINT#, 
complementario del NOTE#, y cuyo for- 
mato es el siguiente: 

POINT # <canal>, <var. T>, <var. 2> 

Este realiza la operación contraria a 
NOTE#, de tal forma que permite situar 
el puntero de la unidad de disco en la 
posición que se desee; posición que se 
indicará mediante el contenido de las 
variables <var. 1> y <var. 2>, para el 



sector y el byte de dicho sector, respec- 
tivamente. Como se recordará, esta po- 
sición estaba almacenada en fa variable 
INDICE( h ), la cual será leída medíante el 
valor de CLAVE como se muestra en la 
línea 580. Una vez posicionado el pun- 
tero, sólo queda ejecutar las correspon- 
dientes instrucciones INPUT# para leer 
la información del disco. Tras presentar 
la información leída en la pantalla me- 
díante la subrutina 61 0 r se devuelve el 
control al programa principal. 



Las restantes opciones utilizarán las 
mismas subrutinas que ya se han expli- 
cado hasta aquí, por lo que resultará 
muy sencillo comprender su funciona- 
miento, Por ejemplo, para listar todcs 
los registros, sólo habrá que crear un 
blucle que recorra todos los registros 
uno a uno, e ir leyendo la información 
del disco y presentándola en pantalla. 
Esta subrutina es ía comprendida entre 
las líneas 900 y 940, 

Tras presentar en pantalla un regis- 
tro, se esperará a que el usuario pulse 
una tecla cualquiera para visualizar el 
siguiente. 

La subrutina de modificar un registro 
coincidirá también con una combinación 
de las subrutinas ya estudiadas. Concre- 
tamente, la zona básica de la misma se 
sitúa entre las líneas de programa 950 
y 1030, En ella se pide en primer fugar 
el nombre del registro a modificar; éste 
es buscado de forma similar a como se 
hacía en la opción de encontrar un re- 
gistro. Después se visualiza en pantalla 
y mediante instrucciones INPUT se mo- 
difican los campos necesarios. Una vez 
modificado, se deposita el contenido en 
el archivo empleando el comando 
POINT# y los PRINT#; la única salvedad 
es que en este caso el archivo se abre 
en modalidad URDATE. Previamente se 
habrá actualizado el índice N$, con lo 
que se da por terminada esta subrutina. 

La subrutina de eliminar un registro 
reduce su actuación a borrar a este del 
índice (variables IND!CE{) y N$), con lo 
que ya no será accesible. Dicha elimi- 
nación se opera desplazando hacia 
atrás, y uno a uno, los valores que lo si- 
guen en las variables índice; si bien, no 
se elimina eí archivo del disco, por lo 
que será fácilmente recuperable en el 
caso de que se haya ordenado su des- 
carte por equivocación. La subrutina al 
efecto es la situada entre las líneas 
1040 y 1100. 

Finalmente, la opción de salida del- 
programa se encargará de almacenar en 
el disco el archivo secuencial "INDI- 
CE,DAT'\ las variables P, INDICE() y N$, 
ya que hasta ahora éstas sólo residían 
en la memoria principal del ordenador y 
son esenciales para recuperar la infor- 
mación de la agenda. Por este motivo, 
no se debe ordenar la ruptura del pro- 
grama en ningún punto del mismo; 
siempre hay que abandonar el progra- 
ma ejecutando la opción 6 de salida. De 




Posiciona el puntero del disco en el registro de acceso aleatorio al que se desea acceder. 
Formato: <n. 1> POi NT #<ca nal>, <var, 1>,<var, 2> 

Ejemplos: 30 POINT fl3,iND{1), IN0(2) 

50 POINT #3, SECTOR, BYTE : INPUT #3; A$ 




Obtiene la posición del puntero de la unidad de disco en la que se va a efectuar una grabación de un registro de 
acceso aleatorio. 

Formato: <n. 1 >N0TE #<canaf>, <var, 1>, <var. 2> 

Ejemplos: 10 NOTE #2, SECTOR, BYTE 

20 NOTE #1, IND(1 j, IND(2j : PRINT #2; A$ 
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otra forma se podría perder toda la in- 
formación actualizada. 

La grabación de los índices para el ac- 
ceso se podría haber realizado tras cada 
actualización del archivo AGENDA.DAT, 
bien por añadir un nuevo registro, o por 
modificar o eliminar alguno ya existen- 
te; no obstante, ello haría que el mane- 
jo de la agenda resultara más lento y te- 
dioso. La subrutina de salida está em- 
plazada entre las líneas 1110 y 1160 
del programa. 

Como puede observarse, una vez gra- 
badas las variables de índice, se ejecu- 
ta un GRAPHICS 0 que inrcializa el sis- 
tema, y se asigna a BUCLE el valor 2 
que concluirá la ejecución de la estruc- 
tura REPEAT/UMTJL simulada en el pro- 
grama principal; con ello se alcanzará 
a instrucción END. 

A estas alturas sólo queda por comen- 
tar la subrutina de ínicialízación (líneas 
230 a la 340), relegada hasta ei final 
para su mejor comprensión. Ahora se 
conocen ya las distintas variables utili- 
zadas en el programa. 

En ella se empieza dimensionando las 
distintas variables utilizadas en el pro- 
grama, de acuerdo con la dimensión re- 
querida y prefijada en las líneas prece- 
dentes. La línea 250 de la mencionada 
subrutina pone en práctica un artificio, 
específico de los ordenadores de ATA- 
Rl, que permite una rápida inicialización 
ce cadenas de caracteres con un valor 
concreto (en cada caso caracteres blan- 
cos para B$y N$). 

A continuación, se obtienen del archL 
AGENDA.DAT los valores para las 
/ariabíes P, IMDICE( ) y N$, que permiti- 
rán el acceso aleatorio al archivo AGEN- 
DA.DAT que memoriza la información 
•de la agenda. En el caso de tratarse de 
a primera ejecución del programa 
— aún no existe en el disco ei archivo 
-GENDA.DAT—, se producirá un error 
ce «fichero no encontrado»; error que es 
manipulado mediante el comando 
”RAP, de forma similar a como se expli- 
có para la subrutina de creación del ar- 
:iivo AGEJMDA.DAT. En este caso no se 
meará el archivo INDICE.DAT, sino que 
se asignará a la variable P el valor 1, 
-ue revelará que no existen todavía re- 
: stros en la agenda. De inmediato se 
'¿tornará al programa principal para co- 
menzar el bucle que visualiza el menú 

solicita al usuario que elija una op- 
ean. 





55 




RGENDfl ELECTRONICA 



10 REM AGENDA ELECTRONICA 

20 PRINT CHR${ 125) : POKE 752, U REM BORRAR PANTALLA Y ELIMINAR 
CURSOR 

30 PüSITION 10, 9 : PRINT 'AGENDA TELEFONICA' 

40 GOSUB 230 : REM INICIAL IZAR VARIABLES 

50 POKE 752, 0 J REM HACER APARECER CURSOR 

60 FOR BUCLE-Q TO I STEP 0 

70 PRINT CHR$( 125) : REM BORRAR PANTALLA 

80 POSrnQN 8¡ I : PRINT 'MENU AGENDA TELEFON ICA" 

90 PRINT : PRINT : PRINT 'L ENCONTRAR REGISTRO' 

100 PRINT : PRINT '2. AGREGAR NUEVO REGISTRO" 

1 10 PRINT : PRINT "3. LISTAR TODOS LOS REGISTROS" 

120 PRINT : PRINT "4, MODIFICAR REGISTRO" 

130 PRINT : PRINT "5. ELIMINAR REGISTRO" 

140 PRINT : PRINT "6. SALIDA DEL PROGRAMA" 

150 OREN #1, 4, 0, "K-" 

160 FOR L-0 TO I STEP O 

170 POSmON 7* 16 i PRINT 'SELECCIONE UN NUMERO "; : GET >1 , T : 

PRINT CHR! ( T ) 

180 IF T>48 AND T<55 THEN L=Z 
190 NEXT L : CLOSE *1 

200 ON T-48 GOSU6 350, 800, 900, 950, 1040, MIO 
210 NEXT BUCLE 
220 END 

230 REM SUBRUTINA DE INICIAL1ZACION 

240 DIM NOMBRES (40), T$(1), NOM$(40), CALLE!(40), CiUDADÍ(40), 
PROV$(40) , TEL$(40) , B$(40) 

250 DTMNÍ (4001), INDICEO00, 1 ) : N$=' ' : N!(4001 K ":N!(2)=N$: 
Bí=' " : B$(40)=" "iB$(2)=B| 

260 TRAP 340 : OREN #3, 4, 0, "D : IWD1CE.DAT' 

270 INPUT #3: P 
260 FOR 1 = 1 TOP-I 

290 INPUT *3; NOMBREN : N!í 1*40-39 )=NOMBRES 
300 NEXT 1 : N*<400l)=' ' 

310 FOR 1=1 TOP-1 

320 INPUT #3; T : INDICEÍ I, 0)=T í INPUT #3; T : INDICEÍI, 1 )=T 
330 NEXT \ : CLOSE #3 : TRAP 40000 : RETURN 
340 CLOSE #3 : P=1 : TRAP 40000 : RETURN 
350 REM SUBRUTINA BUSCAR REGISTRO 

360 PRINT : PRINT 'INTRODUZCA NOMBRE A BUSCAR' : INPUT NOMBRES 
370 GOSUB 480 : POS- 1 

380 FOR L=0 TO 1 STEP 0 : GOSUB 440 : REM BUSCAR NOMBRE EN INDICE 
390 IF CLAVE =0 THEN PRINT : PRINT "NOMBRE NO ENCONTRADO"; i 1=2 : 

FOR K= I 10 200 : NEXT K 

400 IF CLAVEOO THEN GOSUB 540 : PRINT : PRINT "SIGO BUSCANDO ? 

(S/N) iOPEN M, 4, 0, "X:' : GET * I , T : T$=CHR$(T) : CLOSE * ! 
410 IF CLAVE <>0 AND (T$-"N" OR T$="n") THEN L=2 
420 NEXT L 
430 RETURN 

440 REM SUBRUTINA BUSCAR NOMBRE 

450 CLAVE -O : FOR I “POS TO (P-1 )*4ü-LEN(NOM! ) 

460 IF Ntí I, 1+LENÍNOM! )-1 )=N0M1 THEN CLAVE=lNT(l/40)+! : PQS=I+1 : 
l=(P-|)*40-LEN(NOM$) 

470 NEXT 1 i RETURN 

480 REM SUBRUTINA MODIFICAR NOMBRE PARA INDICE 
490 NQM$=" " :N=I : FOR L=1 TO LEN( NOMBRE $ ) 

500Tt=NOMBRECL, L) : T-ASC(T$) 

510 JFT>-97 THENT=T-32 

520 IF T>64 AND T<91 THEN NOM!(N, N)=CHR*(T) : N=N+I 

530 NEXT L : RETURN 

540 REM SUBRUTINA LECTURA DE DATOS 

550 IF P=1 THEN PRINT : PRINT ' AGENDA VACÍA" : RETURN 

560 PRINT CHRÍÍ 125); : REM LIMPIAR PANTALLA 

570 OPEN #Z, 4 S O, 'D : AGENDA.DAT" 

580 POINT *2, INDICEÍCLAVE, 0), INDICECCLAVE , 1) 



590 INPUT *2; NOMBRE! : INPUT *2; CALLES : INPUT #2; CIUDAD! 

600 INPUT #2; PROV! : INPUT #2; TEES : CLOSE *2 : GOSUB 610 : RETURN 
610 REM SUBRUTINA IMPRIMIR REGISTRO EN PANTALLA 
620 PRINT CHRSÍ 125); "NOMBRE' : PRINT " NOMBRES : PRINT "DIRECCION* 
¡PRINT" CALLES 

630 PRINT "CIUDAD" : PRINT ‘ CIUDADI 
640 PRINT “PROVINCIA (C. P : PRINT " PROVS 
650 PRINT "TELEFONO' : PRINT " "; TELt 
660 RETURN 

670 REM SUBRUTINA INTRODUCIR DATOS POR TECLADO 
680 PRINT CHRSÍ1Z5) 

690 GOSUB 610 : NOMBRE !=B$ i CALLE! =B! : CIU0AD!=B! : PROV*=B* : 
TEL$-B$ 

700 FOR L=0 TO 1 STEP 0 

710 POS IT ION 2, 1 : INPUT NOMBRE* : NOMBRES (40)=' ' 

720 PRINT i PRINT : INPUT CALLES : CALLES (40)=' “ 

730 PRINT : PRINT : INPUT CIUDAD! : CIUDADÍ (40)=' ' 

740 PRINT : PRINT : INPUT PROVS : PR0V|(4Ü)-' ' 

750 PRINT : PRINT : INPUT TELI : TEL$(4Ü)=" " 

760 PRINT : PRINT : PRINT 'SON CORRECTOS LOS DATOS ? (SI /NO) : 

OPEN #1,4,0, ‘K' m : GET «1, T ! CLOSE #1 : T$=CHRÍ(T) 

770 IF TS="S" OR T!="$" THEN L=2 
780 NEXT L 
790 RETURN 

800 REM SUBRUTINA INTRODUCIR NUEVO REGISTRO 

810 NOMBRE S-BÍ : CALLE$=B$ : C1UDADS=B! : PRGVÍ=B! : TELÍ-B! 

820 GOSUB 670 : REM ENTRADA POR TECLADO 

830 GOSUB 480 : REM MODIFICAR NOMBRE PARA INDICE 

840 N$(P*40-39, P*4Ü)=NOM! : N!(400í )=" " 

650 TRAP 890: OPEN #2, 9, 0, 'D : AGENDA. DAT" 

660 NOTE #2, SECT, BYTE : ENDICEÍP, 0)=SECT : INDICEÍP, 1 )=BYTE 
870 PRINT #2; NOMBRE! : PRINT #2; CALLES : PRINT #2; CIUDAD! : 

PRINT #2; PROV!; PRINT #2; TEL! 

880 CLOSE #2 i P=P+! ; TRAP 40000 : RETURN 

890 TRAP 40000 : CLOSE #2 : OPEN *2, 8, O, "D : AGENDA . DAT' : GOTO 860 : 
REM CREAR ARCHIVO SI NO EXISTIA YA 
900 REM SUBRUTINA LISTAR REGISTROS 
910 FOR INÜ= I TOP-1 
920 CLAVE =IND : GOSUB 540 

930 PRINT : PRINT ' PULSE UNA TECLA PARA SEGUIR 'i : OPEN #1, 4, O, 

Xi* : GET ti, T: CLOSE U 
940 NEXT IND i RETURN 
950 REM SUBRUTINA MODIFICAR REGISTRO 

960 PRINT : PRINT "INTRODUZCA NOMBRE A MODIFICAR" : ENPUT NOMBRE! 

970 GOSUB 370 : IF CLAVE =0 THEN RETURN : REM BUSCAR REGISTRO A 
MODIFICAR 

980 GOSUB 690 : REM ENTRADA DE DATOS POR TECLADO 

990 GOSUB 480 : N$( CLAVE *40-39, CLAVE*40)=NOM$ : N* (400 IX * 

1000 OPEN #2, 12, 0, 'D : AGENDA.DAT' 

1010 POINT #2, IND ICE (CLAVE, 0), INDICECCLAVE, 1) 

1020 PRINT *2; NOMBRE! : PRINT #2; CALLE! = PRINT #2; CIUDAD! : 

PRINT *2; PROV! : PRINT #2; TEL$ 

1030 CLOSE *2 : RETURN 

1040 REM SUBRUTINA ELIMINAR REGISTRO 

1050 PRINT : PRINT 'INTRODUZCA NOMBRE A ELIMINAR' i INPUT NOMBRE! 

1 060 GOSUB 370 : IF CLAV£=0 THEN RETURN : REM BUSCAR REGISTRO A 
MODIFICAR 

1070 FOR L=CLAVE TOP-1 

1080 W!(L*4G-39, L*4G)=N*( (L+ I )*40-39, (L+T >*40) :N*(4Ü01X ‘ 

1090 INDICEÍL, 0) = INDICE(L+1, 0) MNDICECL, 1 )=IND1CE(L+1 , 1) 

1100 NEXT L: P=P-| : RETURN 

í ! 10 REM SALIDA DEL PROGRAMA 

H20 IF P=1 THEN GRAPHICS 0 : BUCLE -2 : RETURN 

1130 OPEN #3, 8, 0, "D : ÍNDICE. DAT' 

T 340 PRINT #3; P : FOR L-1 TO P-l : NOMBRE !=N! C L*40-39 , L*4Q) : 

PRINT *3; NOMBRE! : NEXT L 

1150 FOR L-1 TOP-1 : PRINT #3; INDICEÍL, 0) : PRINT *3] INDICEÍI, 1): 

NEXT L 

1 160 CLOSE #3 : GRAPHICS 0 : BUCLE=2 ¡ RETURN 



Este programa pretende tan sólo ¡lus- 
trar claramente el manejo de archivos 
de acceso aleatorio, por lo que en cier- 
tos aspectos está simplificado. Con su 
estructura actual —reflejada en el lista- 



do adjunto — , resulta ya perfectamente 
útil en la práctica; no obstante, su má- 
ximo rendimiento se obtendrá al intro- 
ducir el usuario sus propias mejoras, 
adaptándolo a sus necesidades especí- 



ficas. Estas modificaciones pueden con- 
cretarse, por ejemplo, en permitir el ac- 
ceso por otros campos diferentes al de 
nombre, o ampliar la capacidad de la 
agenda a más de 100 registros. 
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Los archivos 
Commodore 



del 

64 



Tratamiento de 
archivos en la unidad 
de disco 1 541 




La incorporación de fa unidad de disco al equipo Commodore 64 potencia las 
posibiliddes de este ordenador capacitándolo para ejecutar múltiples aplicaciones 
de gestión en las que resulta imperativo el trabajo con archivos de acceso aleatorio. 



a unidad de disco 
básica de la fami- 
lia Commodore 
(apellidada 1541) 
es un periférico 
inteligente. En efecto, posee su propio 
microprocesador de 8 bits (un 6502}, ro- 
deado de 2 Kbytes de memoria RAM y 
de una zona de memoria ROM en ía que 
está almacenado el sistema operativo 
de disco (DOS), 

Esta «inteligencia» facilita el trata- 
miento o manipulación de los archivos 
almacenados en el disquete, indepen- 
dientemente de la tarea que en cada 
instante esté ejecutando el microproce- 
sador que dirige las actividades de la 
unidad central. Así, por ejemplo, la uni- 
dad de disco puede dar salida por sí mis- 
ma a algunos archivos; enviando la in- 
formación hacia la impresora para que 
ésta imprima el contenido de los mis- 
mos en pape!. Mientras tanto, el orde- 
nador puede ejecutar cualquier otra ta- 
rea, puesto que no se ve en la necesi- 
dad de atender al proceso que está en 
curso entre la unidad de disco y fa im- 
presora. 

Las operaciones sobre los archivos al- 
macenados en disco se desencadenan a 
Tavés de «órdenes» BASIC o por medio 
ce comandos del sistema operativo; por 
supuesto, esgrimiente los números de 
archivos lógicos adecuados y los núme- 
ros de dispositivos periféricos corres- 
pondientes, cuyos formatos se estudia- 
rán en los próximos apartados. Hay que 
:ener en cuenta (y de ahí el motivo del 
presente capítulo) que las órdenes a uti- 
izar en el caso que nos ocupa difieren 
:a las establecidas para otros intérpre- 
tes BASIC. 



El formato de los discos 

El sistema operativo de disco de Com- 
^odore ofrece una primera ventaja sig- 
'"if ¡cativa; este no debe cargarse a partir 
ce disquete, puesto que reside en la 
~QM incluida en ¡a circuitería de la pro- 
: a unidad de disco. Ello significa que 
as funciones del DOS están disponibles 
:asde el preciso momento en el que en- 
tra en funcionamiento la unidad de dis- 
:d conectada al ordenador. 



Por otro lado, el DOS maneja un am- 
plio conjunto de órdenes destinadas a 
que el usuario pueda codificar compli- 
cados programas que manipulen tanto 
los archivos de programas, como los ar- 
chivos de datos del usuario. 

Pero vayamos al principio. Como es 
natural en este tipo de soportes, antes 
de empezar el trabajo con un disco es 
preciso formatearlo en pistas y sectores. 
El formato de los disquetes que propor- 
ciona el DOS consta de 35 pistas, divi- 
didas en sectores. Dado que las pistas 
más internas tienen una longitud infe- 
rior a la de las pistas más externas, el 
DOS las divide en distinto número de 
sectores. Así, esta división va desde los 

17 sectores para ía pista más interna, 
hasta 21 sectores para la más externa. 
Por su parte cada sector contiene un 
bloque de datos de 256 bytes, más una 
serie de bytes de control necesarios 
para el correcto funcionamiento del sis- 
tema. De esta forma se obtiene un es- 
pacio máximo de 170 Kbytes libres por 
disco flexible de 5 y 1/4 pulgadas. 

El formateado def disquete se comple- 
ta con un mapa de disponibilidad de blo- 
ques (BAM=Block Availability Map) y un 
directorio de los archivos del disco. Las 
referidas tablas sirven para administrar 
la distribución de los datos en el disco. 
Ambas están almacenadas en la pista 

18 del disquete. Más concretamente, el 



BAM se encuentra situado en el sector 
0 de dicha pista y está constituido por 
144 bytes que señalan qué bloques es- 
tán libres para eí almacenamiento de 
datos y cuáles no. El directorio del dis- 
quete se sitúa a partir del sector 1, y es 
una lista que puede incluir hasta 144 
nombres de archivos asociados a infor- 
mación relativa al tipo de archivo y al 
número de bloques que lo constituyen. 

El BAM y el directorio se van actuali- 
zando automáticamente a medida que 
se introducen datos en el disquete, aun- 
que también es posible acceder a ellos 
directamente, como se verá más adelan- 
te. 



Los archivos de programas 

Los programas BASIC se almacenan 
en el disquete como archivos binarios. 
Para ello se dispone de las tradiciona- 
les órdenes BASIC LOAD y SAVE, aná- 
logas a la utilizadas para el almacena- 
miento de datos en casete, aunque con 
ciertas diferencias en su formulación: 

LOAD <nombre$>, <disposÍtivo> 
[, <comando>] 

Donde el nombre del programa 
(<nombre$>) es una cadena de carac- 
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ta unidad de disco 1541 es un periférico d& ta gama 
Commodore compatible con los populares VIC-20 y Commodore 64. 



teres válida, es decir: un nombre ence- 
rrado entre comillas o el contenido de 
la variable alfanumérica especificada. 
El <disposítivo> es un número entero 
que identifica al periférico al que se 
quiere acceder, inicialmente, este nú- 
mero está fijado por hardware, de forma 
que a la unidad de disco le corresponde 
el número 8; si bien, es posible modifi- 
car este número, ya sea por software o 
por hardware, para así poder conectar 
simultáneamente más de una unidad de 
disco. El <comando> es otro número 
entero cuyo uso es opcional; si se omite 
o se hace igual a 0, el programa se car- 



ga normalmente, mientras que sí se le 
otorga el valor 1 se cargará en las mis- 
mas posiciones de memoria que ocupa- 
ba al ser traspasado aí disquete. Vea- 
mos algunos ejemplos: 

LOAD "Programa prueba", 8 
LOAD N0MBRE$ 8, 1 
LOAD N$, D, C 

El comando LOAD se utiliza también 
para «leer» el directorio del disquete. 
Este recibe un tratamiento por parte del 
DOS como si se tratara de un programa 
BASIC, de forma que puede ser «carga- 



do» en la memoria del ordenador y «lis- 
tado» para examinar su contenido. El 
nombre asignado a este «programa» es 
de forma que la orden completa 
que permite «cargar» el directorio del 
disquete será: 

LOAD 8 

Y una vez cargado no queda más que 
ejecutar la orden LIST para que aparez- 
ca el directorio en la pantalla. Este lis- 
tado contiene la siguiente información: 

— Nombre del disquete, 

— Identificador (de dos caracteres) 
del disquete. 

— Hasta 144 nombres de archivos. 

— Tipo de cada archivo. 

— Longitud en bloques de cada ar- 
chivo, 

— Número de bloques libres disponi- 
bles. 

Los nombres de los programas alma- 
cenados en el disquete, admiten tam- 
bién los clásicos «comodínes» o «wiJd- 
cards» («*» y «?»). Con ello es posible que 
una misma orden haga referencia a 
múltiples archivos que compartan tan 
sólo alguna característica en sus res- 
pectivos nombres. 

Hay que tener en cuenta que, debido 
al tratamiento que se le da al directorio 
con este método, su carga «destruye» 
cualquier otro programa BASIC residen- 
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te en ese preciso momento en la memo- 
ria del ordenador, con ío que se pierde 
esa información. En lodo caso, también 
es posible leer el directorio sin perder la 
información previamente almacenada 
en memoria; ello supone leer el archivo 
por medio del comando GET#, como 
si se tratara un archivo secuencia!. 

Ei formato del comando SAVE es to- 
talmente análogo ai de la LOAD ya des- 
crita: 

SAVE <nombre$>, <dispositivo> [,<co- 
mando>] 

Por lo que respecta a la actuación de 
este comando, hay que considerar que 
se producirá un error en la unidad de 
disco cuando se intente almacenar un 
archivo con un nombre ya existente en 
el disco activo. En tal situación, será ne- 
cesario leer el «canal de errores», borrar 
el archivo antiguo, y almacenar enton- 
ces el nuevo. Este inconveniente se 
puede evitar sin más que indicar en el 
comando SAVE lo siguiente: 

SAVE "@0 : "+NOMBRE$, 8 



SECTORES 



PISTAS 




El BAM lleva la cuenta de los sectores del disco que han sido 
ocupados por datos y de los que permanecen disponibles. 



Con Jo que el nuevo archivo reempla- 
zará automáticamente al antiguo, sin 
necesidad de recurrir a otros comandos 
adicionales. 



identificará durante el resto del progra- 
ma al archivo al que se quiere acceder. 
El número del <dispositivo> es, para el 
caso de la unidad de discos, el 8 y ya ha 
sido comentado con anterioridad. Ei 



<canal> debe ser un número compren- 
dido entre 1 y 15, y se refiere al canal 
de comunicación entre unidad de disco 
y ordenador que se desea utilizar. Los 
números 0 y 1 ya han sido comentados 



Los comandos de! disco 



Eí cometido y principales aplicaciones 
de los comandos OREN y PRINT# del 
enguaje BASIC, han sido ya descritos 
en un capítulo anterior de esta obra. 
Respecto a su funcionamiento con la 
jnidad de discos de Commodore, cabe 
precisar que su uso es semejante al de- 
" nido como caso genera!. La novedad de 
Commodore consiste en que también 
-ueden ser utilizados para abrir un ca- 
^al para comandos de disco que contro- 
len los intercambios de información en- 
:re el ordenador y la referida unidad. 

El formato para el comando OPEN es: 

OREN <archivo>, <dispositivo>, <ca- 
ial>, <texto$> 

Donde: <archivo> es un número en- 
tero comprendido entre 1 y 255 que 




El DOS distribuye los sectores en las pistas del disquete, 
de tal forma que los interiores «tocan» a menos 
sectores por ser in ferior su longitud, 
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El directorio 
contiene 
información de 
diversa índole 
relativa a los 
archivos 
almacenados en 
disco. 



y se reservan para su uso con LOAD y 
SAVE. Del 2 al 15 f se utilizan para el 
trasvase de datos a archivos, y el canal 
1 5 es a través del cual se deben enviar 
los comandos de disco. El Ctexto$> es 
una cadena de caracteres válida, que 
será enviada al archivo abierto, al igual 
que si se ejecutase un comando PRINT#; 
ello significa que pueden enviarse co- 
mandos a través del canal con el auxi- 
lio de la orden OPEN o directamente con 
PRINT#. 

El comando PRINT# funciona análo- 
gamente al PRINT convencional, salvo 
que en vez de enviar el mensaje a la 
pantalla lo enviará por el canal especi- 
ficado hacia el archivo previamente 



abierto. Finalmente, se debe cerrar todo 
archivo o canal abierto, que ya no sea 
necesario, mediante la ya conocida or- 
den GLOSE. 

Entre los distintos comandos disponi- 
bles, quizá el de primera necesidad sea 
el que se utiliza para formatear o inicia- 
liza r el disquete, de lo contrario no será 
posible acceder al disco. Este comando 
es NEW, cuyo cometido es borrar com- 
pletamente el soporte magnético, defi- 
nir en él las marcas de control de los 
bloques, y crear el directorio y el BAM. 
Su formulación es la siguiente; 

PRINT#1 5, "NEW;<nombre$i> [,Cidenti- 
ficador>] rr 



En donde: <nombre$> es una cadena 
de caracteres válida que constituye el 
nombre que se asignará al disco y que 
aparecerá en la cabecera del directorio. 
El <identificador> constará de dos ca- 
racteres únicamente y su uso es opcio- 
nal. Sirve para caracterizar a todos los 
ficheros de ese disquete, y evitar que se 
cometa algún error al intentar acceder 
a un archivo de otro disco. Un ejemplo 
de formulación es el que sigue: 

PRINT#1 5, "NEW;disco de pruebas, LC" 

Otro comando de utilidad es COPY, el 
cual sirve para obtener copias en el mis- 
mo disco de un programa o archivo ya 
residente en el mismo, aunque asignán- 
dole un nuevo nombre. 

Por ejemplo; 

PRINT#1 5, "COPY:CGPIA=ORIGINAL r ' 

Este mismo comando permite también 
crear un nuevo archivo de tipo secuen- 
cial, que sea la concatenación de hasta 
otros cuatro archivos secuenciales dife- 
rentes. La que sigue es su formulación 
más genérica; 

PRIWT#15, "CQPY:<nombre nuevo>- 
Cnombre antiguo 1>t, Cnombre antiguo 
2>, Cnombre antiguo 3>, Cnombre an- 
tiguo 4>r 

Si sólo se desea cambiar el nombre 
de un archivo, sin modificar ía informa- 
ción que contiene, hay que recurrir al 
comando RENAME, tal como se indica 
en las siguientes líneas; 

PR1NT#1 5, "RENAIVIE:Cnombre nue- 
vo>=Cnombre antiguo>" 

Un ejemplo práctico es el siguiente: 
PRINT#1 5, ARENAME: JOSE-PEPE" 

Para borrar un archivo del disco se 
dispone del comando SCRATCH, el cual 
hay que complementarlo con el nombre 
o nombres de los archivos a borrar. 

Desde luego, en la formulación de 
SCRATCH está permitido el uso de las 
referencias ambiguas «*» y «?». Su for- 
mato general será, por tanto: . 

PRINTíM 5, "SCRATCH:<nombre1 $> 
[, Cnombre 2$>, ...]" 




CANAL 15 



La orden 
OPEN abre un 
canal de 
comunicación 
entre el 
ordenador y la 
unidad de 
dtsco. 
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La orden PRINT# sirve de transporte para los comandos 
del disco a través del canal número 15 . 



Si al ejecutar algún comando se pro- 
duce en el disco alguna condición de 
error, no será posible realizar en él una 
nueva acción hasta que no sea ¡metali- 
zada de nuevo la unidad de disco, de- 
jándola en el mismo estado en que se 
encontraba al conectarla. El comando 
que realiza esta misión es el siguiente; 

PRINT#15, "INITIALIZE" 

Finalmente, hay que presentar un úl- 
timo comando de disco, VALIDATE, cuya 
función es la de reorganizar los archi- 
vos residentes en el disco flexible- La 
desorganización tiene su origen en las 
sucesivas grabaciones y borrados de ar- 
chivos que darán lugar a la existencia 
de bloques libres entre archivos. Con la 
ejecución de VALIDATE también se li- 
beran los bloques utilizados por archi- 
vos que no han sido correctamente ce- 
rrados y que, por lo tanto, no son acce- 
sibles, Este nuevo comando se introdu- 
ce de ía forma siguiente: 

PRINT#154, "VALIDATE" 

Todos los comandos de discos pueden 
formularse de forma abreviada median- 
te su inicial; así, el último comando des- 
crito podría introducirse como sigue: 

P RII\IT#1 5, "V" 



"Ü" :<nombre>, <tipo>, <dirección>" 

La indicación "0 debe preceder 
siempre al nombre del fichero, para así 
poder acceder a más de dos de los buf- 
fers disponibles en la unidad de disco 
El <nombre>será una cadena de carac- 
teres válida y constituirá el nombre del 
archivo a crear o al que se quiere acce- 
der; en él queda autorizado el empleo 
de referencias ambiguas sólo en las 
operaciones de lectura de datos. El 
<tipo> puede ser uno de los siguientes: 

PRG — Archivo de programa. 



SEO — Archivo secuencia!, 

USR — Archivo de usuario, 

REL — Archivo relativo. 

Todos estos tipos de archivos se crean 
de la misma forma, diferenciándose úni- 
camente en los comandos que facilitan 
el acceso a los mismos (recuérdese que 
incluso el directorio del disco era trata- 
do como si de un archivo de programa 
se tratara). 

La <dirección> debe ser una de las si- 
guientes: "READ" (abreviadamente "R") 
o "WRITE” (abreviadamente" "W"), se- 



Archivos secuenciales 




Los archivos secuenciales se constru- 
yen en el disquete transfiriendo a éste 
:^da la información, byte a byte, a tra- 
vés de un buffer. Por esta razón, deben 
:ar escritos y leídos de principio a fin, 
:3ra lo que previamente se debe esta- 
c ecer un canal de comunicación de da- 
los mediante la orden OPEN: 

OPEN <archivo>, <dispositivo>, <ea- 
“ al>, <texto$> 



Abre un canal de comunicación entre el ordenador y el archivo contenido en un determinado dispositivo. También 
establece un canal de comandos. 

Formato: OPEN <archivo>, <dispositivo> r <canal>, <texto$> 

Ejemplos: OPEN 1 5, 8,15A$ 

OPEN N1.N2, N3 




Los parámetros que acompañan a 
rite comando son ya conocidos. Sólo 
*aría el número del canal, que en este 
:aso estará comprendido entre 2 y 14, y 
e< <texto$>. Para la creación de archi- 
os de tipo secuencia!, este último pa- 
ometro debe tener el siguiente formato; 



Envía la lista de variables que figuran en su argumento a través del canal abierto para el archivo especificado. 
También puede enviar comandos. 

Formato: PRINT# <archivo>, <lista de variables> 

Ejemplos: PRINT# 1 5, ' NEW : DISC01 Jr 
PRINT# 5, A$: G$-C$ D$ 
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Otro comando utilizado para la lectu- 
ra de datos de un archivo secuencial es 
el que adopta el formato: 

GET# <archívo> 

Su única diferencia con INPUT# con- 
siste en que GET# lee los datos byte a 
byte (de carácter en carácter). Esta ca- 
racterística lo hace más útil cuando no 
se conoce con exactitud el contenido ni 
el formato de un archivo. Un ejemplo 
ilustrativo lo aporta el programa "LEER 
ARCHIVO" cuyo listado se adjunta y 
cuya funcionalidad es la de leer eí con- 
tenido de cualquier archivo residente en 
disco. 



PRINT# & INPUT# actúan para los archivos en disco de forma análoga a como fo 

hacen PRINT e INPUT para la pantalla y teclado respectivamente . |_0S 0rcflÍVOS alsatONOS 




gún se quiera acceder al archivo para 
escribir o leer información en el mismo. 

Una vez abierto el canal para la co- 
municación, hay que utilizar ios coman- 
dos PRINT# <archívo> o INPUT# <ar- 
chivo> según se quiera introducir datos 
en el fichero o leerlos del mismo para 
depositarlos en Ja memoria central del 
ordenador. 

El funcionamiento de ambos coman- 
dos coincide con el tradicional de las ór- 
denes PRINT e INPUT, hasta el punto de 
que se respetan los signos de puntua- 
ción que separan a las distintas varia- 



bles que los acompañan. Así, un punto 
y coma («;»} situará los datos uno a con- 
tinuación del otro, mientras que si se se- 
paran por comas («,») se dejarán los es- 
pacios en blanco necesarios, entre va- 
riable y variable en el disquete, de igual 
forma que si se fuera a representar en 
la pantalla. 

Como ejemplo ilustrativo del acceso a 
un archivo secuencial, el programa ad- 
junto, denominado "ERROR DE DISCO", 
utiliza el comando INPUT# para obtener 
la información del canal de errores de 
la unidad de disco. 




Carga el programa nombre$ desde el dispositivo especificado. 

Formato: LOAD <nombre$>, <dispositivo>, <comando> 

Ejemplos: LOAD ' PRUEBA ', 8 
LOAD A$ 8, 1 




Almacena un programa en el dispositivo especificado y le asigna el nombre: nombre$i 
Formato: SAVE <nombre$> J <dispositivo>, <comando> 



Ejemplos: SAVE 'TEST", 8, 1 
SAVE D r C 



La unidad de disco de Commodore ad- 
mite la operación con dos tipos de ar- 
chivos aleatorios: los así llamados en la 
nomenclatura Commodore, cuya princi- 
pal aplicación se encuentra en el len- 
guaje máquina, y los archivos relativos, 
más adecuados para manejar informa- 
ción de cualquier tipo. Como ya se ha 
mencionado, el disquete es dividido por 
el DOS en pistas y sectores, disponien- 
do cada sector de un total de 256 bytes 
libres para el almacenamiento de datos. 

En el caso de los archivos aleatorios 
es posible acceder directamente a cada 
uno de los bloques del disco, mediante 
comandos similares a los ya descritos. 
Estos se envían a través del canal 1 5 de 
comandos, apoyándose en las órdenes 
“OREN" y "PRINT#". Por lo demás, es 
necesario ahora abrir un segundo canal 
para el trasvase de datos, lo que se lo- 
gra con la siguiente orden: 

OREN <archivo>, <dispositivo>, <ca- 
nal>, 

Todos los parámetros son ya conoci- 
dos, excepto el referenciado por el sím- 
bolo "#" que indica el buffer de datos a 
utilizar para el archivo aleatorio. Este 
símbolo puede ir seguido por un núme- 
ro, por ejemplo el #2, lo que señala que 
se quiere utilizar el buffer número 2. 

El comando que permite el trasvase 
de un determinado bloque del disco al 
canal de datos abierto es BLOCK-READ, 
el cual adopta el siguiente formato: 
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PRIWT# 15/ "BLOCK-READ;" <canal>; 
<disposítivo>; <pista>; <bloque> 

Junto a íos parámetros ya conocidos, 
hay que especificar también la pista y el 
bloque exacto que se desea leer. Hecho 
esto, la información se puede obtener ya 
recurriendo a las órdenes "INPUT#" o 
"GET#'\ lo que es más habitual. 

El comando opuesto al descrito es 
BLOCK-WRITE, cuyo formato es idénti- 
co al anterior. Su ejecución debe ser 
posterior al envío de los datos por el ca- 
nal mediante la orden “PRINT#". 

Otros dos comandos opuestos son 
BLOCK-ALLOCATE y BLOCK FREE. El 
primero se encarga de reflejar en el 
BAM que el bloque indicado está ocu- 
pado por datos y no está disponible a 
partir de ese momento. El segundo rea- 
liza la operación contraria, es decir, li- 
bera un bloque cuyo contenido ya no se 
desea conservar. Por ejemplo: 

PRINT# 15, "B — A : rr 0; PISTA; BLOQUE 

Si se intenta utilizar un bloque ya ocu- 
pado, se generará un mensaje de error 
que debe ser leído del canal de errores. 
Junto al mensaje de error, 65: NO- 
8LOCK (bloque ocupado), se indicará al 
usuario el siguiente bloque libre del dis- 
co. 

El inconveniente que presenta este 
tipo de archivos es que resulta muy di- 
fícil seguir la pista de los bloques que 
se van utilizando. Para evitar dicho pro- 
blema se suele crear paralelamente un 
archivo de tipo secuencial cuyo conteni- 
do coincide con la lista de las pistas y 
bloques usados. 

El buffer que se utiliza para el trasva- 
se de datos posee un puntero que seña- 

I 



COMANDOS DEL DISCO 


Comando 


Formulación en el argumento de 
OPEN o PRINT# 


Función 


NEW 


"NEW:<nombre>, <¡dentificador>" 


Formatea e inicia liza un disco. 


COPY 


T0PY:<nom, nuevo>=<nom. aníiguo>" 


Copia un archivo en disco. 


RENAME 


"FtENAME:<noTn. nuevo>= <nom. antíguo> Hr 


Cambia de nombre a un archivo. 


SCRATCH 


"SCRATCH:<nümbre>" 


Borra un archivo del disco. 


INITIALIZE 


"INITIALIZE" 


Inicializa la unidad de disco. 


VALIDATE 


"VALIDATE" 


Reorganiza los archivos en disco. 


OPEN 


”Q:<nombre>, <típo>, <dírección>” 


Abre un fichero secuencial. 


OPEN 


o "#<numero de buffer>" 


Abre un canal de datos para ac- 
ceso aleatorio. 


BLOCK-READ 


"BLOCK-READ:" <canal>; <disp>; <pis- 
ta>; <bloque> 


Traslada unbloquede datos def 
disco al cana!. 


BLOCK-WRITE 


"BLQCK-WRITE: HH <canal>; <dísp>; <pis- 
ta>; <bloque> 


Opuesto ai anterior. 


BLOCK-ALLOCATE 


“BLOCK-ALLOCATE; “<di$p.>; <pista>; 
<b!oque> 


Señala en ef BAM el bloque uti- 
1 izado. 


BLOCK-FREE 


"BLOCK-FREE:" <disp>; <pista>; <blo- 
que> 


Libera en el BAM el bloque dese- 
chado. 


BUFFER-PGINTER 


“BUFFER-POINTER:“<canal>; <posición> 


Posiciona el puntero del buffer. 


OPEN 


"<nombre> ( L ( "+CFIR$[Jongjtüd registro) 


Crea un archivo relativo. 


PRINT# 


"P"CHR3(<canal>+96)CHR3(LSB) 

CHR$(MSB)CHR$<pos¡ción>) 


Posiciona el puntero de un archi- 
vo relativo. 




g 



El puntero del 
BUFFER de un 
archivo 
aleatorio se 
puede situar 
en cualquier 
punto de éste 
mediante el 
comando 
«BUFFER- 
PQINTER». 
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10 REM ERROR DE OI SCO 
20 OPEN 15, 8, 15 

30 INPUT* 1 5, NUM, MENSAS, PISTA, SECTOR 
40 PRINT CHR$(I47) 

45 IF NUM=0 THEN 60 
50 PRINT "Error-”; NUM; 

60 PRINT" “; MENSAS 

70 PRINT "En pista: PISTA; " sector: "; SECTOR 

80 CLOSE 1 5 : END 



10 REM LEER ARCHIVO 
20 INPUT "Archivo “; AS 
30 INPUT “Tipo ”; T$ 

40 0PEN15, 8, 15 : OPEN 2, 8, 2, "0 : "+AS+”, "+T$+“, R” 

50 INPUT* 1 5, NUM, MENSAS, PISTA, SECTOR 

60 IF NUM>0 THEN PRINT NUM, MENSAS, PISTA, SECTOR : END 

70 GET*2,N$ 

80 IF ST=0 THEN 100 
90 CLOSE 15, 2: END 
100 PRINT ASC(NS); 

1 10 GOTO 50 



la al último byte de datos escrito o al si- 
guiente que se va a leer. Es posible ha- 
cer que este puntero señale a la desea- 
da porción de datos de un bloque me- 
diante el comando BUFFER-POINTER, 
cuyo formato es el siguiente: 

PRINT# 15, "BUFFER-POINTER: "<ca- 
nal>, <posición> 

Su ejecución permite dividir cada blo- 
que en registros independientes y éstos, 
a su vez, en campos que proporcionan 
estructuras de almacenamiento más 
efectivas. Y todo ello sin más que asig- 
nar una determinada <posición> dentro 



del bloque a cada uno de estos campos 
y registros. 

Los archivos relativos 

Este nuevo tipo de archivos se carac- 
teriza por permitir la estructuración de 
los datos en registros, y éstos a su vez 
en campos, lo que potencia su utilidad 
a la hora de manejar datos en régimen 
de acceso directo. 

Para crear un archivo relativo se uti- 
liza el siguiente formato: 

OPEN <archivo> I <dispositivo>, <ca- 



nal>, "<nombre$>, L, "+CHR$ (<longi- 
tud del registro>) 

El DOS establecerá una serie de pun- 
teros que señalarán a ios sectores ad- 
yacentes a cada registro. De esta forma, 
cada sector puede apuntar hasta 720 re- 
gistros, que pueden incluir hasta 254 
caracteres por registro, lo que converti- 
ría al disquete completo en un único ar- 
chivo relativo. 

Una vez creado un archivo relativo, su 
apertura para el acceso resulta ya más 
simple, puesto que no hay que especifi- 
car más que su nombre, junto a los res- 
tantes parámetros típicos del comando 
OPEN. Para acceder a cualquier registro 
del archivo abierto hay que empezar po- 
sicionando el puntero del archivo en el 
registro y posición deseada, lo que se 
hace con la siguiente orden: 

PRINT# <archivo>, "P rr CHR$ (<ca- 
nal1>+96) CHR$(<regi$tro LSB>) 
CHR$(<regÍstro MSB>) CHR$(<pos¡- 
ción>) 

En ella, <registro LSB> corresponde 
al byte menos significativo del número 
de registro al que se quiere acceder > 
Cregistro MSB> al byte más significati- 
vo. La necesidad de dos bytes para este 
dato deriva de que con un byte sólo se 
pueden representar los números del 0 
al 255, y no hay que olvidar que un ar- 
chivo en la unidad de disco 1 541 de 
Commodore puede contener más de 70C 
registros. 

Para calcular el valor de estos dos 
bytes puede procederse como sigue. Por 
ejemplo, si el registro al que se quiere 
acceder es el número 520, el MSB sgte 
MSB=INT (520/256) y el LSB será er- 
tonces: L£B=520— MSB*256. Al eva- 
luar ambas expresiones se obtienen Ice 
siguientes valores: MSB=2 y LSB=8. 

El parámetro <posicíón> se refiere 
naturalmente, a la posición dentro os- 
eada registro. Su colaboración permite 
apuntar a un campo determinado den- 
tro del registro. 

El acceso al fichero relativo se haré 
por lo tanto, en función del número cf 
registro deseado. Si se quiere accede - 
por medio de una clave o código a cace 
registro, habrá que construir paralela- 
mente un archivo secuencial que rela- 
cione cada clave con el número de re- 
gistro correspondiente. 
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Archivos en el 
Spectrum 



Creación y 
tratamiento de 
archivos en 
IVlicrodrive 



os Microdrives 
son unidades de 
almacenamiento 
masivo, en forma 
de cartuchos de 
cinta magnética, enrollada de tal forma 
que no tiene fin. Estos dispositivos pre- 
sentan ciertas ventajas respecto a los 
tradicionales magnetófonos a casete, 
aunque sus características distan mu- 
cho de las que brindan las unidades de 
disco. 

Las unidades de Microdnve se conec- 
tan al Spectrum a través del lnterface-1. 
Este dispositivo, además de controlar a 
los Microdrives, potencia al Spectrum 
con la aportación de una red focal y un 
interface RS/232. 

La primera operación a realizar, tanto 
con un disco como con un cartucho, es 
el formateado del soporte magnético. 
Esta es una operación durante ¡a cual 
se crea además el directorio. Para ello 
es necesario ejecutar el comando FQR- 
MAT, cuya formulación general es: 

F0RMAT* ,r m";n;<nombre> 




Aun cuando la opción básica para el almacenamiento externo de información en ¡a 
familia Sinclair la constituyen los magnetófonos a casete r la mayor velocidad de 
acceso del Microdnve , sumado a su precio moderado, han convertido a este 
periférico en una frecuente alternativa. 



en donde: 

n: es el número de unidad de Microdri- 
ve en el que se encuentra el cartucho 
que se desea formatear (puede haber 
hasta ocho unidades conectadas). 

<nombre>: nombre que se desea otor- 
gar al cartucho. Puede ser una cadena 
de caracteres encerrada entre comillas, 
o una variable de cadena. 

Otra operación fundamental para el 
manejo de los cartuchos es la obtención 
de su catálogo o directorio. Esta opera- 
ción se realiza mediante el comando 
CAI, cuya formulación es: 

CATn 

donde n es el número de Microdnve en 
el que reside eí cartucho del que se de- 
sea obtener el catálogo. 

Este comando puede utilizarse tam- 
bién para comprobar si una determina- 
da operación se ha realizado correcta- 
mente. 

Los nombres de los archivos creados 
en IVlicrodrive siguen aproximadamente 



las mismas reglas aplicadas a los archi- 
vos en casete. Esto es. el nombre ha de 
constar de no más de 1 0 caracteres. No 



obstante el nombre puede incluir cual- 
quiera de los «tokens» propios del Spec- 
trum, con lo que, aparentemente, el ru- 




las unidades de Microdnve constituyen un original periférico 
de almacenamiento, cuyo soporte son cintas magnéticas alojadas en 
un diminuto cartucho de material plástico. 
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mero total de caracteres se ve incre- 
mentado. 




■ Dada i a naturaleza del soporte magnético (cinta «sin fin»), los cartuchos de 
Microdrive son soportes de tipo exclusivamente secuencia! 
semejantes a las tradicionales casetes. 



Comandos generales para la 
manipulación de archivos 

Los comandos dedicados a la manipu- 
lación de archivos deben permitir las si- 
guientes operaciones básicas: grabar, 
leer, modificar, verificar, mezclar y bo- 
rrar archivos. 

En el caso del Microdrive, los coman- 
dos al efecto admiten las mismas exten- 
siones que sus homólogos destinados al 
manejo del casete; esto es: CODE para 
bytes, SCREEN$ para el caso particular 
de la pantalla y UNE para la autoejecu- 
eion de un programa BASIC. 

Para grabar un programa en un car- 
tucho alojado en la unidad de Microdri- 
ve se utiliza el comando SAVE, aunque 
con una formulación distinta de la habi- 
tual: 

SAVE*"m";n;<nonnbre>(<extensio- 

nes>) 

en donde: 

n señala el número de unidad de Micro- 
drive en la que se va a realizar la gra- 
bación; 

<nombre> corresponde al nombre que 




Permite formatear un cartucho de Microdrive 
Fmmm FORMA? "m"; n; < rwmbre> 
Ejemplo: FORMA? w m"; 1; "NOMBRE" 



Lee el directorio de un cartucho. 
Formato: CAI n 
Ejemplo: CAT 1 



se desea dar al archivo sujeto a la ope- 
ración ordenada. 

<extensiones>: pueden ser, opcional- 
mente, LINE, CODE o SCREEN$ 

Para leer un archivo de programas ha 
de utilizarse el comando LOAD, cuya 



formulación mantiene un gran parale- 
lismo con la propia de SAVE: 

LOAD *' r m";n;<nombre>(<extensio- 
nes» 

en donde: 

n indica la unidad de Microdrive en uso. 

<nombre> es el nombre del archivo de 
programa que se desea leer. 

<extensiones>: pueden ser, opcional- 
mente, CODE ó SCREEN$. 

Una vez efectuada la grabación de un 
programa, es posible que el usuario 
quiera asegurarse de que ésta se ha 
efectuado correctamente. Para ello 
cuenta con el comando VERIFY. Este 
comprobará que el archivo se ha graba- 
do correctamente comparando la infor- 
mación en él contenida con la que se 
encuentra presente en memoria. Desde 
luego, su ejecución sólo será eficaz si 
permanece inalterado el contenido de la 
memoria interna que se desea cotejar. 
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Este hecho justifica el escaso empleo 
deí referido comando con la extensión 
SCREEN$l Su formulación general es la 
siguiente: 

VERIFY *"m";n;<nombre>{<extensÍG- 
nes>) 




Almacena ur. programa en Microdrive. 

Formato: SAVE* "ib"; n; <nornbre>{<extensiones>] 



siendo: Ejemplos: SAVE* "m"; 1; rH PRQG~1 " 

SAVE* "m"; 2; Hr R0G" UNE 10 

n el número de la unidad de Microdrive 
donde se encuentra el cartucho activo. 



<nombre> el nombre del programa gra- 
bado en Microdrive con el que se desea 
comparar el contenido actual de la me- 
moria. 

<extensiones>: pueden ser CODE o 
SCREE$, opcionalmente. 




Lee un programa residente en cartucho. 

Formato: LOAD 4 "m”; n; <nombre>J <extens¡on es>] 



En ciertos casos es necesario utilizar 
dentro del programa en curso una ruti- 
na que se confeccionará aparte o bien 
que se encuentra inmersa en otro pro- 
grama. En tal caso, hay que recurrir al 
comando MERGE, el cual permite leer 
un programa y «mezclarlo» con el que 
se encuentra en memoria. Dicha ^mez- 
cla» se realiza sin problemas siempre 
que los números de línea de ambos pro- 
gramas no coincidan. 

No obstante, si los números coinciden 
se produciré una situación anómala, de- 
rivada del hecho de que no pueden coe- 
xistir en memoria dos líneas con el mis- 
mo número. En tal caso, de efectuarse 
la operación MERGE, desaparecerán las 
líneas coincidentes del programa que se 
encontraba en memoria. 

La formulación del comando MERGE 
es la que sigue: 

MERGE *"m";n;<nombre> 

en donde: 

n es el número del drive que se desea 
emplear; 

<nombre> corresponde al nombre del 
archivo cuyo contenido se desea mez- 
clar con el programa que se encuentra 
en memoria. 

Por último, hay que hacer mención de 
un comando cuyo empleo será descono- 
cido para los que sólo hayan empleado 
unidades de casete. Se trata del coman- 



Ejemplo: LOAD* "m"; t; "ROL" 



do ERASE, cuya misión es borrar un ar- 
chivo. Su utilidad es manifiesta en los 
Mícrodrives ya que, a diferencia de lo 
que ocurre con los casetes, en los car- 
tuchos no es posibles situar la cabeza 
lecto-grabadora al principio del progra- 



ma no deseado y grabar sobre el mismo 
la nueva información. 

La sintaxis de una instrucción de esta 
índole es: 

ERASE "m";n;<nombre> 




■ Los Mícrodrives constituyen una alternativa adicional \ entre el disco y el casete t 
para el almacenamiento masivo de información en el Spectrum, 
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OPEN# 



Abre un archivo de datos. 

Formato: OPEN# C; n; <nombre> 
Ejemplo: OPEN# 4; "m' r ; 1; Jr DATOS-1 ,r 



GLOSE# 

Cierra un archivo de datos. 
Formato: GLOSE# n 
Ejemplo: GLOSE# 5 




<nombre> es el nombre del archivo que 
$e desea abrir; 

n es el número de la unidad de IVlicro- 
dríve utilizada. 

Tras efectuar cualquier operación con 
un archivo es imprescindible cerrarlo; 
de lo contrario pueden ocurrir pérdidas 
irremediables de información. El co- 
mando preciso es GLOSE: 

GLOSE #n 

donde n es el número del canal asocia- 
do al archivo que se desea cerrar. 

Para introducir datos en el archivo en 
uso se utiliza ei recurrido comando 
PRJNT, aunque con una sintaxis distinta 
de la habitual: 

PRINT #n;<datos> 



en donde: 

n es ei número de la unidad donde se 
encuentra el cartucho; 



c corresponde al número de canal se- 
leccionado (puede haber varios canales 
abiertos siempre y cuando no coincidan 
los números). 



en donde: 

n es el número de canal asociado al ar 
chivo con el que se está trabajando, y 

<datos> es la lista de datos que se de 



<nombre> es el nombre del archivo que 
se desea eliminar. 



Comandos para la manipulación 
de archivos de datos 



Debido a la propia naturaleza de los 
Microdrives y a la estructura del sopor- 
te utilizado (cinta magnética continua), 
esta unidad de almacenamiento sólo 
perm ite trabajar con archivos de tipo se- 
cuencial. Esta es su principal limitación. 

En los capítulos precedentes dedica- 
dos al estudio de los archivos secuen- 
ciales, se apuntaron las cuatro opera- 
ciones básicas que pueden realizarse en 
un archivo de este tipo: apertura, cierre, 
escritura y lectura. 

La apertura del archivo corre a cargo 
del comando OPEN, cuya formulación 
adopta en este caso el siguiente aspec- 
to: 

OPEN #c;"m";n;<nombre> 
en donde: 




: 

I Af tguaf que ocurre con los discos , los carruchos de Microdnve deben ser 
previamente formateados para que sea posible realizar en 
ellos cualquier operación de lectura o escritura. 
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sea grabar en un registro del archivo se- 
cuencia!. 

Por último, para leer ios datos graba- 
dos en el archivo se emplea el coman- 
do ÍNPUT: 

INPUT #n;<lista de variables> 
en donde: 




Escribe en un archivo de datos. 
Formato: PRINT# n <datos> 
Ejemplos: PRINT# 3;A$/'** rH 



n corresponde al número de canal aso- 
ciado con el archivo, y 

<1 ista de var iabíes> a la lista de varia- 
bles a las que se otorgarán Jos datos que 
se leen del archivo. 




Lee de un archivo de datos. 



Existe otra función adicional orienta- 
da a la lectura de un archivo. Se trata 
de INKEYíf#, cuyo formato es el que si- 
gue: 



Formato: INPUT# n <datos> 
Ejemplo: INPUT# n; A$ 



JNKEY$ #n 

Este comando permite fa lectura de 
Jos caracteres grabados en un archivo, 
de uno en uno. 

Ejemplos prácticos 

Creación de un archivo secuencia/ 

El primer ejemplo es un programa 
muy sencillo que permite la creación de 
un archivo secuencíal. Los datos se so- 
licitan a través de instrucciones INPUT 
y el programa se encarga de irlos intro- 
duciendo en el archivo externo abierto 
al efecto. 

El final del archivo se marca por me- 
dio de un elemento cuyo contenido es 



fijo y que consiste en tres asteriscos. Si 
no se marcara el final del archivo y se 
intentara leer su contenido con poste- 



rioridad, se produciría un error que de- 
tendría la ejecución del programa. 
Cualquier operación con un archivo 




I Por su propia naturaleza, los cartuchos admiten tan sólo archivos de tipo 
secuencia /. En ellos los datos se almacenan uno tras otro t 
en estricto orden , por lo que para acceder a cualquiera de ellos 
es preciso pasar por todos ios que lo preceden. 




Los tradicionales 
comandos SAVE y 
LOAD ( seguidos por 
un asterisco y los 
correspondien tes 
parámetros) permiten 
el transvase de 
información entre el 
Spectrum y el 
Microdrive. 
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El empleo del comando 
VERIFY garantiza la 
corrección de las 
operaciones de 
almacenamiento en cartucho . 
Para ello compara el 
resultado de la grabación 
con la información de origen 
residente en la memoria del 
Spectrum. 



desea introducir más datos en el archi- 
vo, es suficiente con responder al INPUT 
con la palabra FIN. AI detectar esta pa- 
labra, el programa pasará a ejecutar la 
rutina de cierre del archivo con el que 
se está trabajando: 

30 1F A$= iP FIN" THEN GOTO 60 

La instrucción de la línea 40 es la en- 
cargada de grabar en el archivo el dato 
introducido. Obsérvese que el número 
de canal asociado ha de coincidir con el 
especificado en el momento de abrir el 
archivo en cuestión: 

40 PRINT #5: A$ 

Para proseguir con la introducción de 
datos es necesario que la secuencia del 
programa regrese a la instrucción de la 
línea 20, lo cual se logra por medio de 
un simple GOTO: 

50 GOTO 20 



empieza por su apertura. Tal acción lle- 
va implícita además la propia creación 
del archivo puesto que éste no existe: 

10 OREN #5; 'BOATOS' 1 

A continuación, hay que establecer el 



medio de captación de los datos a gra- 
bar; por ejemplo, mediante una instruc- 
ción INPUT: 

20 INPUT "INTRODUZCA EL DATO"; UNE A$ 

Para indicar al programa que no se 



Finalmente, hay que añadir las ins- 
trucciones adecuadas para cerrar el ar- 
chivo. En primera instancia habrá que 
escribir en él los caracteres *** que ser- 
virán para detectar el final del archivo. 
Tras ello puede ya ejecutarse la oportu- 
na orden GLOSE: 

60 PRINT#5;" #fi " 

70 CL0SEA5 
80 STOP 




Lee un carácter de un archivo. 
Formo; INKEY$tf n 
Ejemplo: INKEY$ff 4 




Permite verificar si una grabación se ha efectuado correctamente 
Formato: VERIFY* "m"; n; <nombre>(<extensiones>] 

Ejemplo: VERIFY* ”m"; 1; "DATO” 



Rutina de lectura 

El siguiente ejemplo es una rutina 
adecuada para leer los datos que fueron 
introducidos en el archivo por medio del 
anterior programa. 

La rutina en cuestión está preparada 
para detectar el fin del fichero (caracte- 
res ***) y evitar de esta forma la inte- 
rrupción del programa por efecto de un 
error. 

La primera operación consiste en la 
apertura del archivo: 

10 0PEN #5;"irf;1 ¡"DATOS" 

Tras ello, se leerá un elemento del ar- 
chivo por medio de la siguiente Instruc- 
ción: 

20 INPUT #5;A$ 
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20 para que sea leído un nuevo dato del 
archivo: 



La opción SC REEN$ aplicada a ios comandos LOAD', SAVL r o VERIFY ' permite 
manipular archivos cuyo contenido es información de pantalla. 




50 GOTO 20 

Y, por último, hay que proceder al cie- 
rre del archivo y, cómo no, detener la 
ejecución del programa: 

60 GLOSE #5 
70 STOP 



Rutina de actualización 

La tarea más compleja que se puede 
realizar con un archivo secuencial es la 
actualización de su contenido. Evidente- 
mente, ésta no puede efectuarse de una 
forma directa, de ahí que haya de recu- 
rrirse a otros artificios. La solución resi- 
de en actualizar el archivo actual co- 
piando los elementos ya existentes en 
un nuevo archivo, y grabando a conti- 
nuación los nuevos elementos. 

Como de costumbre, se empezará 
abriendo los archivos implicados en la 



En la línea 30 se detectará si el dato 
leído coincide con el indicador de fin de 
archivo: 

30 IF A$^" # * 4 " THEN GOTO 60 

Para mostrar por pantalla el elemen- 
to extraído por efecto de la operación de 




Mezcla dos programas. 

Formato: MERGE* "m"; n; <nombre> 
Ejemplo: MERGE* "nf; 1; "ALIEIf 




Borra un archivo del disco. 

Formato: ERASE ’m"; n; <nombre> 



lectura, basta con imprimir la variable 
A$ por medio de la instrucción siguien- 
te: 

40 PRINTA$ 

En este punto, es preciso que la se- 
cuencia del programa regrese a la línea 




Ejemplo: ERASE "m"; 1; "GOLF" 



I i Diagrama de flujo asociado a la 
rutina de creación de un archivo 
secuenaa! descrita en el texto. 
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Rutina 1 : Creación de un archivo secuencial 



5 REM RUTINA DE CREACION 
10 OPEN#5;"m";1; "DATOS" 

20 INPUT "INTRODUZCA EL DATO"; UNE A$ 
30 IF A$="FIN" THEN GOTO 60 
40 PRINT#5;A$ 

50 GOTO 20 
60 PRINTK5; ''***" 

70 CLOSE#5 
80 STOP 



Rutina 2: Lectura de un archivo secuencial 



5 REM RUTINA DE LECTURA 
10 OPENS5; "m"; 1; "DATOS" 
20 INPUT45; A$ 

30 1FA$="“*" THEN GOTO 60 
40 PR1NT A$ 

50 GOTO 20 
60 CLOSEÍ5 
70 STOP 



Rutina 3: Actualización de un archivo secuencia! 



5 REM RUTINA DE ACTUALIZACION 
10 OPENS5; "m"; 1; "DATOS" 

20 OPENS4; "m"; 1; "DATOS.1" 

30 INPUT#5, A$ 

40 IFA$="‘“" THEN GOTO 70 
50 PRINTK4; A$ 

60 GOTO 30 

70 INPUT "INTRODUZCA EL DATO"; UNE A| 
80 IFA$="FIN" THEN GOT0 110 
90 PRINT#4;A$ 

100 GOTO 70 
110 PRINTK4; "***" 

120 CLOSEÍ5: CLOSE *4 
130 STOP 



operación; dos en el caso que nos ocu- 
pa: 

10 OREN #5; "m"; 1 ;"DAT OS " 

20 OREN Mfm^ífDATÜS I " 

Acto seguido, hay que instrumentar 
los medios necesarios para leer los da- 



tos del archivo de origen, uno a uno, y 
grabarlos en el archivo de destino. Por 
supuesto, cuando en el archivo de ori- 
gen se detecte ía marca de fin de archi- 
vo (***), habrá que saltar ei bloque de 
instrucciones que gestionarán ¡a intro- 
ducción en el archivo de destino de los 
nuevos datos implicados en el proceso 




RUTINA DE LECTURA 



Diagrama de flujo correspondiente a 
la rutina de lectura de un archivo 
secuencial 



de actualización. Las acciones descritas 
quedan en manos de las siguientes ins- 
trucciones: 

30 INPUT#5;A$ 

40 IFA$="*“" THEN GOTO 70 
50 PRINT*4;A$ 

60 GOTO 30 

La zona encargada de la introducción 
de los nuevos datos, que ampliarán los 
ya existentes, y de colocar la marca de 
fin del archivo en su nuevo emplaza- 
miento coincide con la que sigue: 

70 INPUT "INTRODUZCA EL DATO"; UNE A$ 

80 IFA$="FIN" THEN GOT0 110 
90 PRINT#4;A$ 

100 GOTO 70 
110 PRINT#4;" ,M " 

Por último, sólo queda cerrar los ar- 
chivos utilizados y detener la ejecución 
del programa: 

120 CL0SE#5:CL0SE#4 
130 STOP 
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Ficheros en los 
AMSTRAD 



La coexistencia de 
CP/M y AMSDOS 




El Amstrad es un ordenador que se ha hecho tremendamente popular en los 
últimos tiempos , gracias a su arquitectura integrada; unidad central, monitor y 
unidad de disco o casete se venden conjuntamente a un precio muy ventajoso 



na característica 
primordial de los 
ordenadores Ams- 
trad es su capaci- 
dad de disponer 
del sistema operativo CP/M, el cual 
abre las puertas de un nuevo universo 
de aplicaciones. 



El sistema de discos 

Los modelos CPC664 y CPC6128 de 
la familia Amstrad incorporan en la par- 
te derecha del teclado una unidad de 
disco de tres pulgadas, mientras que en 
el CPC464 este espacio es ocupado por 
un casete convencional. Para poder dis- 
frutar en este último modelo de las 
prestaciones del sistema de discos, es 
necesario conectarle una unidad adicional 
a través del conectar correspondiente. 

También es posible conectar una se- 
gunda unidad de disco a cualquiera de 
los modelos Amstrad; ésta puede elegir- 
se para trabajar con discos de tres pul- 
gadas o de cinco y un cuarto* Cada cara 
de los discos, independientemente de su 
tamaño, tiene capacidad de almacenar 
unos 17ÜK de información; aunque elio 
parezca mucho a simple vista, dicha ca- 
pacidad puede resultar escasa para tra- 
bajar con algunos programas en CP/M, 
o para mantener una base de datos algo 
extensa* 

Nada más conectar el aparato, el sis- 
tema de discos queda bajo el mando deJ 
AMSDOS {acrónimo para «AMStrad 
Disk Operating System») el cual ofrece 
una serie de comandos, algunos de 
ellos muy parecidos a los del CP/M, 
para la gestión de ficheros y directorios. 

Para pasar el control al CP/M se te- 
clea un comando específico de AMS- 
DOS; a partir de entonces se dispone de 
las órdenes típicas del CP/M. 



AMSDOS, un S.O. desde BASIC 

Como se ha comentado, AMSDOS 
está disponible desde el momento en eí 
que lo está el intérprete BASIC; esto es. 



desde que se conecta el ordenador. Esto 
es así debido a que los comandos que 
proporciona el AMSDOS son, realmen- 
te, una serie de RSX implementados en 
RON, 

En el Amstrad, el usuario puede crear 
a su gusto nuevos comandos que siem- 
pre van precedidos de una barra vertí- 
cal. En la mayoría de las ocasiones, es- 
tos comandos residirán en la RAM del 
equipo, por lo que cada vez que se quie- 
ra hace uso de ellos deben ser recogi- 
dos previamente de cinta o disco. Otra 
opción consiste en que una vez progra- 
mados puedan convertirse en parte in- 
deleble del conjunto de comandos que 
proporciona el equipo sin son grabados 
en ROM; precisamente esto es lo que ha 



ocurrido con los RSX que constituyen eí 
sistema operativo AMSDOS. 

Pese a que las ventajas que presenta 
el sistema de discos respecto al de cin- 
tas son cuestionables, hay ocasiones en 
las que disponer de un almacenamien- 
to masivo sobre casetes puede resultar 
interesante; por ejemplo, cuando se tra- 
ta de obtener copias de seguridad (back- 
ups) de tos programas y datos más im- 
portantes. En estos casos, guardar las 
copias en cinta resulta mqcho más ba- 
rato que hacerlo en disco, y el proble- 
ma del mayor tiempo de acceso a la cin- 
ta queda compensado por la esperanza 
de que no habrá que utilizarlas muy fre- 
cuentemente. Al efecto, AMSDOS pro- 
porciona los comandos oportunos para 




El benjamín de la familia, el CPC 464, lleva incorporada 
en la unidad central la unidad de casete. 

Sus hermanos mayores se han decantado 
por el disco , más práctico y rápido. 
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AMSDOS.COM 



CTRUSHIFT +ESC 



I CPM 



De CP/M a AMSDOS... y viceversa 




*redirigir» las entradas y salidas, bien 
sea hacia el disco o hacia la cinta. Es- 
tos comandos están reflejados en el 
cuadro adjunto. 

En la correspondiente tabla aparecen 
os restantes comandos que proporcio- 
na AMSDOS para la gestión de los fi- 
cheros y del espacio en disco. Se obser- 
va la presencia del comando | USER, que 
sermite realizar hasta 1 6 particiones del 
disco 0 LISERA,, |USER,15), lo cual re- 
sl Ita especialmente útil cuando la es- 
casez de discos obliga a tener directo- 



rios excesivamente poblados. Mediante 
este comando es posible dividir el disco 
en secciones para programas BASIC, fi- 
cheros en código máquina, ficheros 
fuente Pascal, etc, r de forma que en todo 
momento una lectura del directorio por 
pantalla sólo muestre los ficheros que 
sean útiles en este instante, mejorando 
la presentación. 

El formato de los nombres de fichero 
utilizados por AMSDOS es el mismo que 
en CP/M: 

Cnombre de fichero>. <extensión> 



AMSTRAD 




La existencia de 
dos tipos de 
unidades de 
almacenamiento 
externo obliga a 
disponer de 
comandos que 
especifiquen 
hacia cuál de 
ellas deben 
dirigirse las 
operaciones de 
entrada/salida 
de información. 



donde «nombre de fichero» es uncampo 
de ocho caracteres como máximo y «ex- 
tensión» de tres, también como máximo. 
Los símbolos comodín ("*” y r 7") son 
tratados de forma análoga a como lo son 
en CP/M. 

Aparte de ios comandos específicos 
del AMSDOS, se encuentran los co- 
mandos propios del intérprete; éstos no 
van precedidos por la barra vertical y se 
utilizan para la carga en memoria y gra- 
bación de programas: SAVE, LOAD, 
MERGE, etc. 

El volcado de un programa de memo- 
ria a disco o cinta se realiza mediante 
la orden SAVE. Por ejemplo: 

SAVE "unfich" 



hará que, en el caso de utilizar el disco 
como dispositivo de destino, aparezca en 
el mismo un fichero, denominado "UN- 
FICH.BAS” (la extensión la pone auto- 
máticamente el sistema), conteniendo 
el programa BASIC que en ese momen- 
to reside en memoria. Si la orden fuera 

SAVE "unfich N ,P 



el fichero quedaría protegido, de tal for- 
ma que sólo sería posible su ejecución, 
sin posibilidad de obtener un listado. 

Al ejecutar la orden: 

SAVE Jr unfich"A 



el fichero se graba en modo ASCII; es 
decir, tal y como se ve al sacar un lis- 
tado. 
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Para grabar una zona de memoria en 
general (que puede ser el contenido de 
la pantalla o un bloque de código má- 
quina) el parámetro a utilizar es "B"; en 
este caso también habría que especifi- 
car el comienzo y la longitud de la zona 
de memoria a volcar. Por ejemplo: 

SAVE 'I pa nía I la", B, &COOO, &4G0Q 

crea en disco el fichero "PANTA- 
LLA.BIN" {de nuevo, la extensión es ad- 
judicada directamente al detectar el pa- 
rámetro "ES") que contiene información 
sobre la pantalla visualizada en ese mo- 
mento. 



CP/M, la estrella del conjunto 

Sin duda, to que hace que los orde- 
nadores Amstrad se encuentren en la 
frontera entre el juguete y la utilidad 
práctica es la posibilidad de trabajar en 
CP/M; sistema operativo que ofrece un 
entorno ideal para los que velan sus pri- 
meras armas en informática, e incluso 
para la ejecución de aplicaciones profe- 
sionales. 

Tanto el CPC464 como el CPC664 
operan con la versión 2.2 de este siste- 
ma operativo, con el serio inconvenien- 
te de ía escasa memoria RAM que que- 
da para los programas de usuario, con- 
cretamente 44K. Esto no es óbice para 
que no se puedan emplear excelentes 
programas: Wordstar, o los compilado- 




I Pese a que ia existencia de un directorio en disco hace innecesario que los ' j ^ 
cuyo soporte sea este medio incluyan una cabecera , AMSDOS la inlcuye con e 
de guardar la compatibilidad con tos ficheros almacenados en cinta. 



res de Fortran y Cobo! de Microsoft son 
tres buenos ejemplos. 

Esta limitación de la memoria RAM 
disponible bajo CP/M queda resuelta en 
el modelo CPC6128, que incorpora 
128K de RAM, el doble que sus prede- 
cesores, además de la versión 3.0 de 
CP/M. Esta última incorpora algunos 
comandos nuevos, así como un paquete 
destinado a aprovechar las capacidades 
gráficas deí aparato desde eí CP/M; los 
CPC464 y CPC664 no pueden hacer uso 
de esta posibilidad. 



La compatibilidad entre los fichéis 
que manejan AMSDOS y CP/M se : se 
mantiene a nivel de ficheros de tesa: Eír 
consecuencia, estando bajo el conr: 
del AMSDOS, no se puede realizar tm 
LOAD de un fichero COM, aunque s se 
pueden manipular los ficheros de tere- 
que hubieran sido creados por un e: 
desde CP/M, por ejemplo. Ello se 
a que los ficheros generados por los pro- 
gramas almacenados con el comedí: 
SAVE sin especificar la opción "A r ces 
de AMSDOS, van precedidos por 




SOPORTE 

MAGNETICO 



BUFFER DE 2 K 




$0000 


01100110 : 


$0001 


11111111 


$0002 


00100001 






$07FE 


10010010 


$07FF 


01100000 h 




I Los datos almacenados en un disco no se asignan según se leen 
sino que se almacenan en una zona intermedia de memoria 
hasta que son necesarios : 




PROGRAMA de 
APLICACO. 



7a 






ROM 



Una vez que se ha diseñado un RSX puede «enlatarse» en ROM, de forma 
que esté siempre disponible nada más conectar el equipo. 



cabecera en la que se incluyen diversas 
características del fichero: tipo (BASIC, 
binario, ASCII, etc), protección, longi- 
tud, zona de carga,,, mientras que los fi- 
cheros en CP/M no llevan este tipo de 
información. Por esta razón, al intentar 
cargar desde el AMSDÜS un fichero ge- 
nerado por CP/M y detectar la ausencia 
de cabecera, se produce un error. 

Como se ha comentado,, los ficheros 
grabados con ia opción "A” no incorpo- 
ran dicha cabecera, por lo que pueden 
ser utilizados sin problemas en el entor- 
no CP/M. 

Entre los comandos CP/M que se en- 
cuentran en eí disco de sistema hay al- 
gunos orientados a facilitar el uso de 
este sistema operativo con los ordena- 
dores Amstrad. Por ejemplo, destacan 
CSAVE y CLOAD, para transferir conte- 
nidos de ficheros de cinta a disco y vi- 
ceversa, y FILECOPY para transferir fi- 
cheros de un disco a otro sin necesidad 
de disponer de una segunda unidad. En- 
tre los ausentes cabe mencionar SAVE r 
que se utiliza para guardar páginas de 
memoria en disco, y que puede ser de 
utilidad a los programadores avanzados 
en CP/M. 

Para pasar af AMSDOS desde el 
CP/M, hay que ejecutar un pequeño 
programa llamado AMSDOS.COM que 
devuelve el control al intérprete Basic. 



Otra posibilidad alternativa es efectuar 
un reset del aparato, presionando si- 
multáneamente las teclas CTRL, SHIFT 
y ESC. Si se desea pasar a CP/M desde 
el control del AMSDOS, hay que teclear 
la orden: 

|CPM 



Gestión de ficheros 

Todos los comandos de AMSDOS son 
interpretados desde el Locomotive Ba- 
sic, lo cual permite al programador ope- 
rar con ellos desde el propio intérprete 
(ver ejemplo de redefinición de coman- 
dos en el programa 1 ). 

El usuario puede crear y gestionar sus 
propios ficheros desde el Basic. Para 
ello, antes de utilizarlos debe abrirlos. 
Una vez que haya terminado su manipu- 
lación tendrá que cerrarlos, Eí Locomo- 
tive Basic impone la restricción de que 
sólo puede estar abierto un fichero para 
lectura y otro para escritura en cada ins- 
tante: además, todos los ficheros serán 
de acceso secuencial. 

Para gestionar un fichero, ya sea de 
entrada o de salida, se reservan 2K de 
memoria RAM que actuarán como bu- 
ffer entre el alojamiento final en RAM y 



el soporte magnético que representa el 
disco o la cinta. 

El programa 2 incluye un ejemplo en 
el que se ha abierto un fichero para al- 
macenar el contenido del array "a$'\ El 
primero consiste en crear un fichero con 
la orden OPENQUT, seguida del nombre 
y la extensión de tal fichero. 

Hay que destacar que el nombre que 
aparecerá al listar el directorio del dis- 
co será exactamente el que figura entre 
las dobles comillas. Por lo tanto, si no 
da una extensión al fichero, como suce- 
dería de ejecutar: 

OPENQUT "PRUEBA rp 

en el directorio no aparecerá extensión 
alguna para el mismo. Lo contrario ocu- 
rre al utilizar el comando SAVE, con el 
que las extensiones se asignan automá- 
ticamente. En el Locomotive Basic las 
órdenes básicas de entrada/salida 
—fundamentalmente PRINT e INPUT— 
pueden ir seguidas por un número que 
especifica el canal por el que se reali- 
zará la operación. Concretamente, en el 
programa adjunto el canal asignado es 
el número nueve, que corresponde a ia 
vía de comunicación con el sistema de 
disco/cinta. 

Una vez que se ha enviado toda la in- 
formación al fichero de destino, hay que 



76 





cerrarlo con la orden CLOSEOUT El he- 
cho de que no haya que especificar aho- 
ra el fichero que se cierra se debe a que, 
como se ha comentado unas líneas más 
arriba, sólo es posible tener abierto un 
fichero para salida; de ahí que no exista 
duda alguna sobre el fichero que hay 
que cerrar. Esta operación, realizada so- 
bre ei disco podría haber tenido lugar 
sobre la cinta si, con anterioridad a la 
ejecución de este segmento de progra- 
ma, se hubiera ejecutado la orden: 

TAPE 

ó 

TAPLÜUT 

bien incluyéndola como línea del pro- 
grama, o bien tecleándola directamente 
con anterioridad a Ja ejecución del mis- 
mo, Cuando se conecta el ordenador por 



primera vez, toda la entrada/salida a 
través del canal número nueve está 
orientada hacia el disco. 

Una vez que se han grabado los datos 
sobre el disco, lo más normal es pensar 
en recuperarlos; al respecto, el progra- 
ma 3 ofrece una alternativa. En él se ob- 
serva la forma de abrir un fichero para 
lectura (GPEN1N), para después cerrarlo 
con CLOSEIM. De nuevo, es innecesario 
especificar el nombre del fichero que se 
cierra por la restricción ya comentada. 

Existe una alternativa más potente 
que la reflejada en la rutina en cuestión 
para la tarea de recoger datos del disco 
o cinta. En realidad, habrá pocas ocasio- 
nes en las que el programador conozca 
de antemano el número de datos que 
contiene el fichero que quiere leer. En 
tales situaciones, sería deseable dispo- 
ner de algún medio que informara sí se 



ha llegado al final del mismo e ir leyen- 
do los datos mientras realmente se pu- 
dean ir cogiendo. Ai efecto se dispone 
de la variable EOF, la cual es cierta 
cuando se llega al final del fichero 
abierto para lectura. En el programa 4 
se muestra el uso típico de esta varia- 
ble. El empleo de la estructura WHILE- 
WEND acompañando a la variable EOF 
es un buen ejemplo de matrimonio per- 
fecto, copiado de otros lenguajes más 
evolucionados como son C o Pascal. 

Los ficheros creados pueden guardar 
cualquier tipo de información, ya sea 
numérica o literal, quedando bajo la res- 
ponsabilidad de quien posteriormente 
utilice el fichero al recoger la informa- 
ción de la misma forma en la que fue de- 
positada. Como se obbserva en los pro- 
gramas 5 y 6, la información se graba y 
se recupera en forma de parejas (dato- 




EJECION DEL FICHERO GENE 
RADO AUTOMATICAMENTE 



READY 



10 OPENOUT EJEMPLO. BAS" 

20PRINT«9/'10PRINTPr 

30CLOSEOUT 



RUN 



NEW 



LOAD ' * EJEMPLO. BAS 



RUN 



3. 14159265 
READY 



SE CREA EL FICHERO “EJEM 
PLO.BAS"QUE CONTIENE: 

10 PRINT Pl 



BORRADO DE LA MEMORIA 



CARGA DEL FICHERO GENE 
RADO POR ELI 2 PROG. 



Actuación de un fichero creado por 
medio de la orden OPENOUT. 
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■ El valor de la variable EOF permite reconocer 
el momento en que se llega al final del fichero. 



i Principales comandos del AMSDQS 




RSH 


Acción 


Ejemplo 


OIR 


Listado por pantalla del directorio del disco. 


DIR,"\BAS" 


|A 


La unidad de disco implícito será la "A". 


A 


B 


Como el anterior para la unidad "B". 


B 


CPM 


Pasa el control al CP/M. 


CPM 


ERA 


Borrado de ficheros. 


ERA, "PRUEBA.*” 


j REN 


Cambio del nombre de un fichero. 


REN "NUEVO.BAS’TVIEJO.BAS" 


¡USER 


Definición de un área de usuario. 


USER, 5 



RSH 


Acción 


| DISC.IN 


Indica que las operaciones de lectura se harán sobre el disco. 


| DISC.OUT 


Especifica que Jas operaciones de escritura se realizarán sobre el disco. 


| DI SC 


Señala que las operaciones de lectura y escritura se realizarán sobre disco. 


| TAPE.IN 


Indica que las operaciones de lectura se harán con la cinta. 


ITAPE.OUT 


Señala que Jas operaciones de escritura se harán con Ja cinta. 


¡TAPE 


Tanto las operaciones de lectura como de escritura se realizarán sobre cinta. 



literal, dato-numérico). Un intento de 
realizar la entrada de los dalos en el 
programa a través de la orden; 

puede traer malas consecuencias para 
la correcta ejecución del programa. 



Una aplicación: Basic en español 

Los ficheros creados a partir de la or- 
den OPENOUT tienen la particularidad 
de que, en el caso de que su contenido 
sean programas Basic, es posible car- 
garlos en memoria y ejecutarlos como 
si realmente hubieran sido tecleados 
desde el propio editor del Locomotive 
Basic. 

En el cuadro final se muestra un 
ejemplo claramente ilustrativo. En un 
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primer paso se crea el fichero "EJEM- 
PLO. BAS" a través de O PENO ÜT y CLO- 
SEOUT cuyo contenido es: 

10 PRINTPI 



Esto es justamente una línea de pro- 
grama Basic que, en el caso de apare- 
cer en un programa, imprimiría por pan- 
talla el valor 3,14159265. Por lo tanto, 
lo que contiene el fichero recién creado 



es un pequeño programa Basic que es- 
cribirá dicho valor por pantalla. A con- 
tinuación, podemos cargar el fichero 
"EJEMPLO. BAS" y ejecutarlo, obte- 
niendo el efecto deseado. 



Almacenamiento en 
memoria de variables 
suscritas 

Un conjunto de elementos, como ya se ha comentado, 
puede almacenarse en memoria bajo un mismo nombre 
de variable suscrita. Para distinguir a un elemento de 
otro es necesario recurrir a una serie de números, 
separados por comas, que reciben el nombre de 
¿índices». Estos acompañan al nombre de la variable e 
identifican a cada uno de los elementos. 

Cuando se define una estructura de este tipo, se indica 
el numero de elementos distintos que van a residir en 
memoria bajo el mismo nombre genérico. En general, el 
acceso a cada posición de memoria se realiza a través 
de un número que identifica su emplazamiento o 
«dirección» dentro del espacio de memoria, Cuando el 
ordenador desea conocer el valor de una variable, le 
basta con examinar el contenido de la posición de 
memoria asociada a dicha variable; dependiendo del tipo 
de variable de que se trate, leerá, a partir de esa 
posición, el contenido de otras posiciones contiguas. En 
el caso de los conjuntos de variables o «arrays», la cosa 
no es tan sencilla. La existencia de más de un elemento 
bajo el mismo nombre genérico crea alguna dificultad. 

Si bien, es evidente que a partir del nombre de la 
variable y del valor de los índices, será posible acceder 
a cualquiera de los elementos del conjunto. La forma de 
acceder a ios elementos de las variables suscritas no 
presenta excesivas complicaciones. En primer lugar, 
consideremos un conjunto de tan sólo una dirección. La 
variable del conjunto o «array» tendrá asociada una 
dirección de memoria; dirección a partir de la que estará 
localizada su zona de almacenamiento. En segundo 
fugar, hay que precisar si nuestro ordenador comienza a 
numerar los elementos del «array» a partir deí índice 0 ó 
del 1 , Es posible que quepa la elección mediante el 
comando QPTION BASE. En cualquier caso, en el 
ejemplo se considerará que la numeración empieza con 
el índice cero. Supondremos, asimismo, que i es el 
índice que corresponde a un determinado elemento del 
«array», que L es el tamaño en bytes de cada uno de ios 
elementos y que D es la dirección de memoria asociada 
a la variable de conjunto. La representación gráfica de 
su almacenamiento es la que refleja el gráfico adjunto 
(figura a), las direcciones de memoria que interesa son: 

D: para el primer elemento, de índice 0 



DH: para el segundo elemento, de índice 1 
D+2L: para el tercer elemento, de índice 2 
D+3L para el cuarto elemento, de índice 3 

Sin mayores dificultades, es posible obtener una 
ecuación que permita calcular las direcciones de cada 
elemento: 

DIR=D+(L*i) 

En el supuesto de que el índice no empezara a partir de 
0, sino que lo hiciera a partir del valor t, bastaría con 
un simple retoque para que la ecuación permitiera 
obtener la dirección efectiva de cada elemento: 

DIR=D+(L*(i— 1)) 

Tal como se observa, el cálculo de la dirección parte de 
dos componentes. Por un lado, una dirección absoluta 
[D|, coincidente con la dirección inicial de la zona de 
almacenamiento reservada a la variable suscrita; y por 
otro, de un valor relativo que indica la distancia al 
elemento desde el comienzo de la zona de 
almacenamiento reservada: L*(i-1), En efecto, este valor 
depende del índice propio de cada elemento del «array». 
¿Qué sucede cuando se tiene más de una dimensión? La 
complicación no es excesiva. Se trata de añadir un 
nuevo valor de desplazamiento relativo a la ecuación. 
Imagine que se trata de un libro (la variable suscrita), 
cuyo primer índice indica el número de página, mientras 
que el segundo identifica a cada palabra de la misma. 
Para localizar la posición de una determinada palabra, 
es necesario conocer a cuantas palabras de distancia 



del comienzo de la página se encuentra. Veamos, por 
ejemplo, cómo se almacena en la memoria un «array» 
coincidente con una matriz de dos dimensiones (índices 
i y j) con 3^3 elementos (ver figura b]. En esta ocasión, 

T es el tamaño del subconjunto de todos los elementos 
que tienen el primer índice común. En consecuencia, si 
el número de elementos para ese índice es N, el valor 
de T será igual a H* L, 

El cálculo de la dirección de comienzo de cualquier 
elemento se reduce, pues, a la siguiente expresión: 

DIR=D+|i*T)+(j*L) 

Aplicado al ejemplo de la figura b, se observa que, en 
efecto, la posición de memoria ocupada por el elemento 
1,2 coincide con: 

DIR=0+(1 # Tl+(2+L)=D+T+2L 

En el cálculo de la dirección efectiva de cada elemento 
intervienen, pues, tres sumandos. El primero (D) 
coincide con la dirección absoluta a partir de la que 
comienza la zona de almacenamiento del «array». El 
segundo es un desplazamiento relativo al primer índice, ' 
que nos coloca al principio de ¡a porción de memoria 
ocupada por los elementos que tienen el primer índice 
común. Por último, el tercer sumando es el que nos 
lleva, definitivamente, a la dirección del elemento 
específico; en efecto, equivale a un desplazamiento 
relativo al valor del segundo índice. 

Este método es extensivo para el cálculo de las 
posiciones en las que se almacenan los elementos de 
los «arraya» de cualquier número de dimensiones. 



ELEMENTO 0 | 


| ELEMENTO 1 1 


ELEMENTO 2 ' 


| ELEMENTO 3 


! '1 

L. J 


1 


' ' 


t ■ 


t 



c 



D+L D + 2L 

— DIRECCIONES— 



D + 3L 






ELEMENTO 

0,0 


ELEMENTO 

0,1 


ELEMENTO 
0,2 | 


ELEMENTO 

1,0 


ELEMENTO 

u 


ELEMENTO 

12 


ELEMENTO 

2,0 


ELEMENTO 
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ELEMENTO 

2,2 


Dh 


'l dJ 


1 


D*1 


r+i D+T 




0*2 


:T+L D+2' 


Í+2L 






C 



D+T 

- DIRECCIONES - 



D*2T’ 



j 
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PROGRAMA 1 

10 INPUT “Comando ",a$ 

20 IF a$ -"directorio" THEN IDIR;"**" 
30 IF a$-”a cpm" THEN ÍCPM 
40 GOTO 10 



El resultado es análogo al que se ob- 
tendría si dicho programa se hubiera 
cargado en memoria por medio deí edi- 
tor, y luego se hubiera pasado a disco 
ejecutando un SAVE: 

Todo esto permite pensar en un pro- 
grama capaz de leer cadenas cuyo con- 
tenido sea un programa Basic en espa- 
ñol y de generar un fichero BAS con el 
equivalente en auténtico Basic. Poste- 
riormente, este fichero puede ser carga- 
do en memoria y ejecutado por el intér- 
prete. Un array de stríngs (Mn$) conten- 
dría el programa fuente de forma pare- 
cida a; 

lmí(1 J= "10 PARA 1=1 HASTA 10" 
linS(2)="20 ESCRIBE I" 
linS|3)- ,r 30 SIGUIENTE T 

El «compilador» de Basic-español a 
Basíc-Real debería analizar los conteni- 
dos de lin$(1 }, íín${2), etc., y generar sus 
equivalentes en inglés, para después 
grabarlos en disco como sigue: 

PRINT #9, "10 FOR 1=1 T0 10" 

PRINT #9/ 20 PRINT I" 

PRINT #9/30 NEXTI" 

El fichero creado de esta forma puede 
ahora ser cargado en memoria y ejecu- 
tado como si de un programa Basic nor- 
mal se tratara; con la particularidad de 
que su generación se ha realizado de 
forma automática, sin necesidad de ha- 
ber pasado previamente por el editor del 
intérprete Basic. 



PA0GAAMA 3 

OPENIN "PRUEBA.DAT" 
FOR 1=1 TO 10 
INPUT *9, 3$ (0 
NEXTI 
CIOSE !N 



DIM a$(5), b(5) 



OPENOUT “DAT0S.DDD" 
FOR 1*1 TO 5 

PRINT *9, a$(i), b(í) 
NEXTI 
CLOSEOUT 



PROGRAMA 2 

DIM a$( 10) 



OPENOUT "PRUEBA.DAT" 
FOR 1*1 TO 10 
PRINT *9, a$(i) 
NEXTI 
CLOSEOUT 



PR06RRMR 4 

OPENIN "PRUEBA.DAT" 

1*1 

WHILE NOT EOF 
INPUT *9, a$(l) 
i=t+ 1 
WEND 
CLOSEIN 



PR06RRMR 6 

OPENIN “DATOS.DDD" 

1=1 

WHILE NOT EOF 

INPUT * 9 , a$(l), b(l) 
1 = 1+1 
WEND 
CLOSEIN 
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Locomotive 

BASIC 



El dialecto BASIC de 
los ordenadores 
Amstrad 




El intérprete BASIC de la firma inglesa Locomotive constituye el medio de dialogo 
con los ordenadores Amstrad , La fotografía muestra el modelo CPC-464. 



os ordenadores 
Amstrad (CPC-464, 
CPC-664 y CPC- 
6128) están todos 
ellos dotados de 
intérpretes BASIC creados por la firma 
inglesa Locomotive, Como ya es habi- 
tual en el mundo de los intérpretes de 
este popular y omnipresente lenguaje 
de programación, cada dialecto incorpo- 
ra ciertas características que lo distin- 
guen. A través de los próximos párrafos 
se describirán ías particularidades más 
significativas del Locomotive BASIC; al- 
gunas tan notables como la posibilidad 
de definir ventanas en la pantalla y ges- 
tionar las interrupciones bajo el control 
del propio intérprete BASIC, 



La pantalla 

El usuario puede trabajar con tres for- 
matos diferentes de pantalla o «modosa 
de los que sólo uno de ellos estará ac- 
tivo en cada momento. Los modos O, 1 
y 2 se corresponden con pantallas de 
20, 40 y 80 columnas respectivamente. 
En todos los modos de pantalla el nú- 
mero de líneas horizontales es de vein- 
ticinco. 

Se pueden manejar hasta 27 colores, 
aunque el número de ellos visualizabas 
en cada momento depende del modo de 
definición de la pantalía: a mayor defi- 



nición, menor número de colores dispo- 
nibles para visualizar, ya que el ordena- 
dor debe almacenar en un espacio de 
16K toda la información relativa a la 
pantalla. A mayor número de caracteres 
imprimibles, menor es el espacio que 
queda para guardar la información so- 
bre el color. 

Siempre se dispone de quince plumas 



con las que escribir los caracteres ele- 
gibles mediante una instrucción PE\ a 
las cuales puede asociarse la tinta que 
el usuario desee a través de la instruc- 
ción INK, Los colores del papel sobre el 
que se escribe y del borde de la panta- 
lla son también definibles, pudiendo in- 
cluso hacer que sean parpadeantes y 
variar el período de parpadeo 




PRINT "hola" 




PRINT "hola' 1 



I Las ventanas son una 
potente herramienta 
Locomotive pone a 
disposición del 
programador de 
aplicaciones 
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ENTRADA /SALIDA 



ios canales constituyen una extensión del concepto de ventana a los periféricos de escritura y almacenamiento 
masivo. Así el canal número 8 corresponde a la impresora i y el 9 a la unidad de disco. 



Aparte de las posibilidades cromáti- 
cas, disponibles en la gran mayoría de 
los ordenadores personales, los ordena- 
dores Amstrad poseen otra facultad no 
tan generalizada; ésta es la de definir y 
gestionar hasta ocho ventanas indepen- 
dientes de texto sobre el monitor o TV. 

Una ventana es un espacio definido 
sobre la pantalla del monitor que el pro- 
gramador puede gobernar como si se 
tratara de otra «pequeña pantalla», defi- 
niendo los colores del papel y de los ca- 
racteres de forma independiente para 
cada una de ellas. La ventana número 
cero (#0) está asignada a todo el espa- 
cio físico de la pantalla de! monitor. 

Una pantalla se define a través de la 
instrucción WINDOW, Por ejemplo, la 
orden: 

WINDÜW #3,10,20,1,20 

define la ventana número 3. Las cuatro 
últimas cifras del argumento indican el 
tamaño de la ventana: entre las líneas 



tO y 20 y las columnas 1 y 20. Los co- 
mandos típicos de interacción con la 
pantalla, como PRJNT, INPUT o LOCATE 
(para situar el cursor en un punto deter- 
minado de la misma), deben ir seguidos 
por un número indicativo de la pantalla 
sobre la que deba reflejarse su acción. 
Si no es así, la máquina da por supues- 
to que las órdenes en cuestión hacen re- 
ferencia a la ventana cero. Por ejemplo: 

PRÍNT n ' HOLA" 

escribirá la cadena de caracteres HOLA 
en la esquina superior derecha de la 
pantalla, dentro de la ventana anterior- 
mente definida; mientras que: 

PRINT "HOLA" ó PRINT #0, "HOLA" 

lo hará en el espacio definido para toda 
la pantalla. 

En realidad, las ventanas son la par- 
ticularización a un caso concreto de un 



concepto más amplio: el de «canal» (ver 
figura). 

Toda la actividad de entrada/salida, 
que se lleva a cabo fundamentalmente 
a través de PRINT e INPUT, se puede 
asignar a un canal concreto. Cuando el 
número de canal está comprendido en- 
tre 0 y 7, se trata de una ventana de tex- 
to sobre la pantalla. Si este número es 
el 8, la salida se dirigirá hacia la impre- 
sora y si es el 9 se corresponde con el 
canal de comunicación con la unidad de 
disco o cinta. Por lo tanto, para obtener 
un listado por impresora, la orden a eje- 
cutar es: 

LIST #8 

la cual dirige el listado hacia el canal 
número ocho. 

Las ventanas son una excelente he- 
rramienta para confeccionar programas 
de utilidad, en los que un factor decisi- 
vo es la facilidad que el usuario encuen- 
re en su manejo: puede haber ventanas 
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dedicados a la presentación de menús, 
otras que muestren el estado en el que 
se encuentra la ejecución del programa, 
y otras cuyas misión sea recoger las en- 
tradas que realiza el usuario a través del 
teclado. 

También existe la posibilidad de tra- 
bajar en modo gráfico, con una resolu- 
ción máxima de 640x400 pixels. Me- 
diante los comandos adecuados se pue- 
den elegir los colores de papel y de la 
pluma de gráficos. 

Como viene siendo habitual, el Loco- 
motive Basic también incluye todo un 
repertorio de comandos para dibujar lí- 
neas y puntos y mover el cursor gráfico 
a voluntad del programador. Aunque se 
echan de menos instrucciones típicas 
para el dibujo de círculos, si se dispone 
de comandos para dibujar líneas discon- 
tinuas (¡VIASK) y para rellenar superfi- 
cies delimitadas por líneas dibujadas 
con anterioridad (FILL); desgraciada- 
mente, este último comando sólo está 
presente en el Basic def CPC 664 



Los sonidos 

Las posibilidades que en este campo 
ofrece el Locomotive Basic son enor- 
mes. En primer lugar se dispone de tres 
canales independientes de sonido, lo 
que da la posibilidad de conectar el or- 
denador a un amplificador estéreo para 
aprovechar al máximo sus característi- 
cas y mejorar la calidad ofrecida por el 
pequeño altavoz incorporado. Un canal 
se corresponde con el altavoz izquierdo, 
otro con el derecho y el tercero de ellos 
con ambos a la vez (ver figura). 

Todos los sonidos se controlan a tra- 
vés de la instrucción SOUND, la cual ad- 
mite hasta un total de siete parámetros. 
El primero de ellos específica la situa- 
ción de los canales anteriormente co- 
mentados; el segundo el período del 
tono emitido; el tercero su duración, ex- 
presada en centésimas de segundo con 
un valor comprendido entre 1 y 32767, 
y el cuarto especifica el volumen con un 
valor entre 0 y 15. Si este último no se 



define, el ordenador tomará el valor 12 
por defecto. 

Cada canal tiene asociado una cola 
que puede contener hasta cinco sonidos 
en espera de ser ejecutados. Suponga 
que tecleamos la siguiente orden segui- 
da de una pulsación sobre ENTER; 

SOUND 1,284,3000 

Esta hará sonar por el altavoz incorpo- 
rado al equipo la nota LA durante unos 
cinco minutos. Mientras está sonando 
esta nota es posible operar normalmen- 
te con el ordenador ya que, al pulsar EN- 
TER, la orden fue almacenada en la cola 
de sonido del canal 1 para que la ges- 
tionara el chip correspondiente, podien- 
do incluso teclear 

SOUND 1,478,200 <ENTER> 

cuyo efecto es pasar a la cola de sonido 
del canal 1 un DO de duración igual a 
dos segundos. Al acabar la ejecución 




Veintisiete tinteros 
y quince plumas 
constituyen las 
«armas» del pintor 
que reside-en el 
intérprete BASIC de 
Amstrad. 




j El comando FUL permite rellenar 
con la Unta especificada un área 
E delimitada por líneas continuas. 



del LA, transcurridos los 5 minutos, el 
chip de sonido recogerá el DO de la cola 
y lo ejecutará. 

Además se dispone de los comandos 
necesarios para sincronizar sonidos por 
ios diversos canales disponibles, y con- 
trolar el estado de las colas para tomar 
decisiones en función de sus contenidos 
en la ejecución de programas. 

Por si esto fuera poco, se pueden de- 
finir los contornos de las envolventes de 
volumen y de tono, con las que los so- 
nidos generados dejan de ser fríos piti- 
dos, a través de las instrucciones ENV y 
ENT respectivamente. De igual forma 
que una envolvente de volumen especi- 
fica la variación relativa de amplitud del 
sonido emitido en el tiempo, una envol- 
vente de tono realiza la misma defini- 
ción sobre el período de! tono emitido. 

Se pueden definir hasta quince envol- 
ventes de cada tipo, identificando a cada 
una por un número. Si el sonido gene- 
rado por una instrucción SOUND va a 
hacer uso de alguna envolvente, el nú- 
mero de ésta se indica como 5. 3 pará- , 
metro para las de volumen y en el 6. 3 
para las de tono. 

Un ejemplo de envolvente de volumen 
puede ser: 



ENV 1 r 5, 3,4,5 -3,8 

El primer parámetro especifica el nú- 
mero de la envolvente de volumen { 1 ) 
por el que será referenciada en Jas ins- 
trucciones SOUND que la utilicen. Los 
siguientes parámetros hacen que la 
nota crezca en cinco etapas, aumentan- 
do el volumen tres unidades en cada 
una de ellas, siendo ía duración de cada 
una de cuatro centésimas de segundo. 
A continuación, el volumen caerá en 
cinco etapas de tres unidades de volu- 
men cada una, durando cada una 8 cen- 
tésimas. Observemos que, puesto que 
una envolvente de volumen —y de tono 
también— especifica la duración de la 
nota, el correspondiente parámetro de 
la instrucción SOUND puede tomar el 
valor cero. Por ejemplo: 

SOUND 1,284,0,0,1 

envía un LA por el canal 1, estando con- 
troladas su amplitud (que comienza en 
cero) y su duración por la envolvente de 
volumen número 1 (último parámetro). 

Para finalizar la cuestión del sonido, 
comentar que, a base de variar el valor 



del parámetro de tono de la instrucción 
SOUND, se puede barrer ocho octavas 
musicales, y que su último parámetro se 
utiliza para añadir ruido a los tonos ge- 
nerados. Tal posibilidad resulta útil para 
imitar sonidos secos, como los produci- 
dos por instrumentos de percusión o por 
una locomotora de vapor. También cabe 
resaltar que la versatilidad de ios co- 
mandos enunciados hace pensar en la 
posibilidad de sintentízar la voz. De he- 
cho, existe un programa denominado 
«3-D Voice Chess» que consiste en un 
juego de ajedrez que brinda la posibili- 
dad de que el ordenador recite sus ju- 
gadas a la vez que las ejecuta. El resul- 
tado es, sin embargo, bastante pobre de- 
bido a ¡as dificultades que presenta la 
síntesis de voz humana. 



Interrupciones y temporizadores 

En el Locomotive Basic encontramos 
una característica poco común entre los 
ordenadores de su rango: la posibilidad 
de gestionar las interrupciones desde el 
propio intérprete Basic. 

Una interrupción es un evento ¡nter- 
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Una dara diferencia entre ¡os comandos EVERY y AFTER 



no o externo a la máquina que obliga a 
suspender momentáneamente la ejecu- 
ción deí programa en curso, para aten- 
der a la causa que produjo dicha inte- 
rrupción, Las interrupciones tienen dis- 
tinta prioridad según la importancia de 
los eventos que las producen: no es lo 
mismo atender ía interrupción que pue- 
de generar el operador al pulsar la te- 
cla ESCAPE o X al ver que su progra- 
ma se ha metido en un bucle sin salida, 
que la que produce un hipotético circui- 
to detector de fallo de la alimentación, 
en cuyo caso el interés primordial es in- 
tentar salvar en memoria permanente 
(disco por ejemplo) lo más que se pueda 
de lo que en ese momento estaba en 
memoria principal, relegando a un se- 
gundo plano a las restantes interrupcio- 
nes (ver figura). 

Existen cuatro temponzadores que 
permiten generar interrupciones en la 
ejecución del programa principal. Su ac- 
ción consiste en bifurcar a una subruti- 
na específica cada vez que se cumple el 
tiempo prefijado, volviendo de nuevo al 
programa principal una vez que la ruti- 




I Los sonidos emitidos por instrumentos musicales son bastante más complejos que 
simples pitidos. Respecto de la amplitud, se caracterizan por un período de tiempo 
en el que ésta sube muy pronunciadamente , manteniéndose después constante 
para, a continuación, decaer con suavidad. La envolvente de volumen puede 
apreciarse también claramente en la figura (parte inferior). 
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y/ 

Cada canal de son f do tiene asociada una cola en la que van alojándose los sonidos que hay que 
emitir. Esto libera a la CPU, lo que la permite dedicarse a otras tareas más provechosas. 



na seleccionada ha finalizado con un 
RETURN. Además, existe una quinta 
manera de ocasionar una interrupción; 
realizando un «Bréalo», lo que se consi- 
gue pulsando la tecla de ESCape dos ve- 
ces consecutivas. 

El orden de prioridad de las interrup- 
dones es, de mayor a menor: 

— Break {[ESC] [ESC]} 

— Temporizador número 3 



— Temporizador número 2 
— Temporizador número 1 
— Temporizador número 0 

Los temporizadores se controlan fun- 
damentalmente con las órdenes AFTER 
(«después de») y EVERY («cada») que ha- 
cen exactamente lo que sus respectivos 
nombres indican. 

Por ejemplo, la ejecución de la ins- 
trucción 



AFTER 5GG r 1 GOSUB 100 

pone a cero el temporizador número 1 y 
después de 500 cincuentavos de segun- 
do (unos 1 0 segundos) se pasará el con- 
trol a la subrutina indicada; es decir, a 
la que comienza en la línea 100. El efec- 
to sería análogo al de encontrar un GO- 
SUB 100 después de haber pasado diez 
segundos desde que se ejecutó el AF- 
TER. Una vez procesada dicha subrutina 




I Es posible conectar a los Amstrad un amplificador estéreo que aproveche al máximo sus posibilidades 
acústicas. De no realizarse esta conexión , toda la discusión sobre canales carece de sentido, 
ya que todos los sonidos, independientemente del canal se envían al altavoz incorporado. 
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RESUME 



(VUELTA AL PUNTO 
DONDE SE PRODUJO EL 
ERROR) 



Una rutina de tratamiento de errores debe recoger información del tipo y lugar donde ocurrió el error para poder tratar los 
diferentes casos de la manera oportuna. Toda rutina de este tipo acabará necesariamente con una instrucción RESUME, que 
devuelve el control al fugar en que se produjo el error (por supuesto , una vez que éste ha sido subsanado). 



(esto es, una vez que aparece el RE- 
TURN correspondiente) se volverá al 
punto del programa principal donde 
ocurrió la interrupción. 

El funcionamiento de EVERY es aná- 
logo al anterior, con la particularidad de 
que la subrutina especificada será eje- 
cutada repetidas veces. Como vemos, 
los temporizadores «compiten» por 
arrancar el control al programa princi- 
pal; de ahí que sea importante estable- 
cer una jerarquía de prioridades para re- 
solver los casos de conflicto que pudie- 
ran aparecer entre ellos. 

La acción de los temporizadores pue- 
de ser inhibida sobre una sección críti- 
ca del programa a través de las instruc- 
ciones DI {Dtsable Interrupts) y El (Ena- 
ble Interrupts). Cuando se ejecuta una 
instrucción DI, los intentos de arrebatar 
el control por parte de los temporizado- 
res son anulados, volviendo a la situa- 
ción normal al ejecutarse una orden El. 

La propia interrupción «Break» puede 
se controlada por ei programa en ejecu- 
ción a través de una sentencia del tipo: 

ON BREAK GOSUB 300 

ía cual bifurca hacia la subrutina indi- 



cada cuando se pulsa dos veces conse- 
cutivas la tecla ESCape. Incluso se pue- 
de inhibir por completo la posibilidad de 
que el operador interrumpa el programa 
con la instrucción ON BREAK CONT. 



El intérprete en general 

Después de este repaso, necesaria- 
mente superficial, a las características 
más sobresalientes de este dialecto BA- 
SIC, quedan por comentar aún una se- 
rie de pequeños detalles de interés. 

Aparte de la conocida estructura FQR- 
NEXT para realizar bucles, existe la 
WHILE-WEND, que se muestra espe- 
cialmente útil en la gestión de ficheros 
en disco/ c i nta . Hay que recorda r q ue u n 
bucle FOR-NEXT es siempre ejecutado 
al menos una vez, mientras que si a la 
entrada de un WHILE-WEND la condi- 
ción es falsa, todo el bloque será salta- 
do. 

La posibilidad de tratar los errores que 
se puedan producir durante la ejecución 
del programa está ampliamente con- 
templada, El programador puede crear 
mensajes de error a la medida de la apli- 



cación que esté desarrollando. Se pue- 
den realizar rutinas de tratamiento de 
errores {ON ERROR GOTO) cuya misión 
consistirá en que el propio ordenador se 
recupere sin detener la ejecución del 
programa. Para ello se dispone de ins- 
trucciones especificas (ERR y ERL) que 
devuelven información sobre el código 
del error producido y la línea en que 
ocurrió, respectivamente; de esta forma 
podrá determinarse el lugar y la causa 
del fallo. 

Si entre el gran surtido de comandos 
que ofrece el intérprete no se encuen- 
tra el que se necesita en un momento 
dado, existe la posibilidad de que el pro- 
gramador se lo construya a medida, a 
través de lo que en la jerga de Locomo- 
tive se denomina un RSX { Reside nt 
System extensión —Ampliación del sis- 
tema residente—). 

Los RSX van precedidos por una ba- 
rra vertical (|j y tienen que ser progra- 
mados en código máquina. En la publi- 
cación «CPC464 Firmware Manual» se 
comenta la forma de programar estos 
comandos para poder utilizarlos desde 
el Basic, Por ejemplo, dada la falta de 
un comando en el intérprete para el di- 
bujo de círculos, se podría pensar en la 
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Una interrupción provoca la detenoón momentánea del programa en 
ejecución mientras se atiende a la causa que la produjo. 



creación de un RSX cuya utilización fue- 
ra algo parecido a; 

| CIRCLE, 200,1 50,25 

en el que los dos primeros parámetros 
sitúan el centro y el último especifica el 
radio. Desgraciadamente, el hecho de 
dotar a los Amstrad con nuevos coman- 
dos no es tarea sencilla; se necesita un 



buen conocimiento del lenguaje ensam- 
blador del microprocesador Z80, así 
como una buena documentación sobre 
la forma de crearlos, la cual resulta es- 
casa en la publicación antes citada. 

Para finalizar, aparte del editor de lí- 
neas que proporcionan casi todos los in- 
térpretes Basic para la creación de pro- 
gramas, existe lo que han dado en lla- 



mar un «editor de pantalla», que dista 
mucho de ser tal. En realidad lo que se 
ofrece es la posibilidad de copiar sobre 
la línea que está editándose el conteni- 
do total o parcial de otra línea que en 
ese momento aparezca en la pantalla, 
simplificando así la tarea de teclear una 
serie de líneas consecutivas con míni- 
mas diferencias entre ellas. 



Editores de líneas y de 
pantalla completa 

Los editores que habitual mente acompañan a los 
sistemas operativos, a los programas monitores o 
incluso a los intérpretes de lenguajes, suelen ser de dos 
tipos: de líneas o de pantalla completa («full-screen*|. 

En ambos casos, la finalidad del editor es permitir la 
creación y modificación de bloques de texto o de 
programas que deben ser sometidos a tratamiento por 
parte del ordenador. 



Mientras que en un editor de líneas sólo es posible 
modificar o crear la línea que está actualmente en 
edición, un editor de pantalla permite moverse por 
cualquier punto de la misma, pudiendo realizar los 
cambios oportunos sin más esfuerzo que el de colocar 
el cursor en el punto deseado mediante ías tedas 
pertinentes. La razón por la que la mayoría de los 
intérpretes de Basic incorporan un editor de líneas en 



vez del más cómodo de pantalla, es doble. En primer 
lugar, desarrollar un editor de líneas es más sencillo y 
ocupa menos espacio en memoria que su compañero. 
Además, al ser el Basic un lenguaje en el que la «línea» 
tiene una importancia especial -hasta el punto de que 
todas van numeradas, cosa que no ocurre en Pascal o C, 
por ejemplo—, utilizar un editor de estas características 
no es tan problemático como en ios lenguajes citados. 
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La máquina 
divertida 



Jugando con el 
ordenador 



emos llegado casi 
al final de nuestro 
curso de BASIC. 
Tras el camino an- 
dado puede decir- 
se que conocemos en profundidad los 
distintos comandos de este popular len- 
guaje. No obstante, aún falta algo: prác- 
tica. El presente capítulo, y los que que- 
dan hasta el final del tomo, presentará 
diversos programas de aplicación, más 
o menos difíciles, pero ilustrativos de 
las muchas posibilidades del lengauje 
BASIC. 

El aspecto iúdico es una de las face- 
tas más explotadas en los ordenadores 
domésticos. Existe una gran cantidad de 
juegos comercializados para los distin- 
tos aparatos. Juegos que no sólo sirven 
para llenar los ratos de ocio del usua- 
rio; ahí están, por ejemplo, los juegos 
educativos. Con éstos, los más jóvenes, 
e incluso los ya adultos, ejercitan su 
mente de una forma amena y divertida, 

La amplia proliferación de juegos para 
ordenador hace de éstos un moderno 
objeto de intercambio cultural. Sin 
duda, a ellos se debe en gran medida el 
éxito de los ordenadores domésticos. 

El BASIC es un lenguaje con el que 
el diseño y realización de juegos resul- 
ta relativamente fácil, tal y como se ob- 
servará a lo largo del presente capítulo. 




Un juego sencillo 

Con las herramientas que brinda el 
BASIC es tarea fácil construir un progra- 
ma que amenice los ratos muertos del 
operador, por ejemplo el siguiente. El 
ordenador «piensa» un número, que 
debe ser adivinado por el jugador. Para 
dar una pista, el ordenador informa si el 
número secreto es mayor o menor que 
el propuesto. 

La codificación en BASIC de este pro- 
grama resulta de lo más simple. En pri- 
mer lugar, hay que elegir el número. 
Este debe estar comprendido entre cier- 
tos límites, por ejemplo 0 y 100. Para 
ello se hará uso de la capacidad de ge- 
neración de números aleatorios del apa- 
rato, plasmada en la función RND: 

20 LEÍ M INUM =1 NT( 1 00*R ND | 




El lenguaje BASIC presente en ia mayor parte de los ordenadores personales i 
constituye una potente herramienta para la programación de todo tipo de 
aplicaciones . En este y los posteriores capítulos desarrollaremos algunas. 




El microordenador puede convertirse en un 

compañero de juego ideal. Sólo hace falta programarlo correctamente. 
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■ En este primer capitulo de práctica desarrollaremos afgunos programas que 
permiten convertir el ordenador en un eficaz compañero para los ratos de ocio . 




Esquema del programa "¡Adivínalo!" el primero de 
los ejemplos propuesto en el texto. 



Con esta única línea se obtiene dicho 
numero, ya que al multiplicar RND por 
100 se obtiene un valor mayor o igual 



que 0 y menor que 100. De éste se toma 
la parte entera para descartar todos los 
posibles valores que tuvieran parte frac- 



cionaria. Una vez que se dispone del nú- 
mero a desvelar hay que brindar al 
usuario la posibilidad de acertarlo. 

Como se tratará (muy posiblemente) 
de un número de un dígito no conviene 
utilizar INKEYíf* sino que es preciso op- 
tar por el comando INPUT. 

100 INPUT "CUAL ES"; TUNUM 

Ahora hay que comparar el valor su- 
puesto con el verdadero, e indicar si el 
número secreto es mayor o menor. En 
caso contrario es que ambos números 
será coincidentes y, en consecuencia, 
será preciso felicitar al jugador. 

110 1F TUNUM>MINUM TON PRINT "NÜGÜÜ ES ME 
NQfT 

120 IF TUNUM<M1NUM TON PRINT "NQGQü ES MA 
YGR" 

130 IF TUNUM=MfNUM TON PRINT "MUY BIEN, ERA EL 
";MINUM 

Con estas líneas se consiguen distin- 
tos mensajes dependiendo del número 
aportado. Si no se acierta, al menos se 
obtiene una pista. Aunque de poco sirve 
esa pista si no se pueden seguir proban- 
do números. Si el intento es infructuo- 
so, habré que repetirlo. Es evidente pues 
que hace falta un GOTO 100. Para si- 
tuarlo debidamente es necesario hacer 
una pequeña reestructuración: 

130 IF TUNUM=MINUM TON GOTO 200 
140 GOTO 100 

Ahora, el número correcto desviará la 
ejecución hacia la línea 200. Si el nú- 
mero es mayor o menor (distinto) del 
pensado por la máquina, se efectuará el 
salto a la línea 100. 

A partir de la línea 200 hay que es- 
cribir la felicitación y dar por concluido 
el juego. 

200 PRINT "MUY BIEN, ERA ÉL ";MINUM 

Aunque un detalle de buen gusto con- 
siste en permitir al usuario que repita el 
juego (con otro número, por supuesto). 
Al efecto se introducirán las líneas 
oportunas que permitan al operador ele- 
gir entre volver a jugar o abandonar el 
programa. Estas son: 

210 PRINT 'JUGAMOS OTRA VEZ ($/N)r 
220 LETA£INKEY$ 
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230 IF AÍ^'S" THEN GOTO 20 
240 IF A$Ó"N" THEN GOTO 220 
250 PRINT'HASTA LA PROXIMA!" 



Las líneas 210 y 220 se encargan de 
recoger la petición del jugador* Si éste 
responde con "S" (Sí) se reinicia el pro- 
grama en la línea 20. De no ser ésta su 
respuesta, el programa salta a la línea 
240, En ella se bifurca a la línea 220 si 
no conteso con una "N". Por lo tanto, si 
no se responde con "S" o "N", se reco- 
gerá un nuevo carácter del teclado. 
Cuando la respuesta es una pulsación 
de la tecla W, se continúa en la línea 
250, En tal caso, el ordenador se despi- 
de dando por concluida la ejecución deí 
programa. 

Por último, sería interesante indicar al 
principio del juego el rango de números 
a considerar como posibles. Para ello 
basta con incluir la siguiente línea: 



C ADIVINA el NUMERO ) 




30 PRINT’HE PENSADO UN NUMERO DEL CERO AL CIEN” 



■ ¿Se siente capaz de adivinar el número 
* pensado » por su ordenador ? 



El programa completo es el que apa- 
rece en el cuadro adjunto bajo el título 
"ADIVINALO!", 

Una posible partida seguirá la evolu- 
ción siguiente: 



RUN 

HE PENSADO UN NUMERO DEL CERO AL CIEN 
CUAL ES? 52<CR> 

N0QQN ES MENOR 
CUAL ES? 23<CR> 

NOQQN ES MAYOR 
CUAL ES? 45<CR> 

MUY RIELERA EL 45 
JUGAMOS OTRA VEZ (S/N)?N 
HASTA LA PROXIMA! 



Una partida a ios chinos 

Adoptando algunas de las ideas plas- 
madas en el ejemplo anterior, es posi- 
ble redactar un nuevo programa con el 
que el usuario se puede jugar el aperi- 
tivo. Se trata, esta vez, de enseñar al or- 
denador a jugar al popular deporte de 
«los chinos». Ello se reduce a adivinar 
un número del O al 3 y sumarlo al pre- 
viamente pensado. El problema se pue- 
de desglosar en varias partes: 

— Elegir un número (del 0 al 3) 




■ No piense que puede hacer ningún tipo de trampas, ni variar el tanteo a su favor 
Ef ordenador es implacable en todos los aspectos. 



— Pedir vaticinio del jugador (del O al 

6 ) 

— Calcular eí rango de valores posi- 
bles 

— Elegir un número dentro de ese 
rango. 

Los dos primeros pasos son similares 
a los del ejemplo anterior. La única va- 



riación está en los límites del valor ele- 
gido: 

20 LEÍ MIAS4NT(4*RND) 

30 fNPUT ‘ CUANTAS" ;T 

El margen de posibles valores será, 
en principio, desde MIAS hasta MIAS+3. 
Para elegir un valor aleatorio dentro de 
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i Otro de tos ejemplos de la eficacia del ordenador en el terreno del ocio lo 
I proporciona el programa capaz de instruir a la máquina 
I para que juegue a los chinos. 



estos límites basta con la siguiente lí- 
nea: 

50 LET Y=M I AS+INTÍ4* R NDJ 

Este cálculo debe repetirse hasta en- 
contrar un número distinto del propor- 
cionado por el adversario, lo que se con- 
sigue introduciendo un comando IF: 

60 IF Y=T THEN GOTO 50 

Si el número Y elegido coincide con T 
(el pronóstico del oponente) se vuelve a 
elegir un nuevo Y. Sólo se continuará 
en el caso de que ambos datos difieran. 

EJ programa completo necesita un par 
de líneas más para hacer público su pro- 
nóstico y mostrar su jugada (líneas 70 y 
80): 



10 REM CHINOS 1/S0FT 
20 LET M!AS=ÍNT(4*RMD) 

30 ÍNPUT "CUANTAS";! 

50 LET Y=MIAS+INT{4*RND) 

60 IF Y=T THEN GOTO 50 
70 PRINT "DIGO QUE HAY ";Y 
80 PRINT "LLEVO ";MIAS 



Desde luego, se puede sacar alguna 
información adicional del dato propor- 
cionado por el contrincante. Si pide O es 
que no lleva ninguna, si pide 1 es que 
lleva 0 6 1, etc. Esto se puede abreviar 
diciendo que si el contrario pide N es 
que sólo puede llevar un número com- 
prendido entre O y N. Axioma éste sólo 
válido para N menor que 4. 

Si por el contrario estima que el nú- 
mero correcto es 4, es porque él lleva 
al menos una. Con esta lógica se obser- 
va que, dependiendo del dato adquirido, 
se puede limitar el rango de valores. 

Así pues, los límites de los posibles 
valores serán: 

DATO 0 

0 01 

1 012 

2 0123 

3 123 

4 23 

5 3 

6 

— Mínimo: N— 3 ó 0 
— Máximo : INI ó 3 

Lo que convertido en líneas de progra- 
ma, se traduce en: 

100 LET MIN=T— 3 
110 IFMIN<0 THEN JW!N=0 



120 LETMAX=T 

130 IF MAX>3 THEN MAX=3 

Las líneas 100 y 120 calculan los va- 
lores máximo y mínimo según las fór- 
mulas comentadas más arriba. Las otras 
dos líneas, 110 y 130, impiden que di- 
chos valores se sitúen por debajo de 0 
{el mínimo) o por encima de 3 (el máxi- 
mo). 

Una vez obtenido el rango apropiado, 
es preciso elegir uno de los números ad- 
misibles. Al respecto se utilizará la fór- 
mula comentada en el capítulo dedica- 
do a la función RND: 

INT(RND # (MAX— MIN1 H+1VIIN 

En ella, todos los valores son conoci- 
dos. Lo que interesa es adivinar el nú- 
mero total de monedas, por Jo que, al 
número hallado, ha de sumársele aquel 
que juega la máquina. Todo ello se al- 
macena en la variable Y para su poste- 
rior manipulación, 

200 LET Y=M IAS-H NT(R IMD*(MAX — M I N+ 1 ])+M 1 M 

Claro que el pronóstico así evaluado 
puede coincidir con el del contrincante. 
Si eso ocurre habrá que buscar otro va- 
lor, recurriendo al mismo método utili- 
zado en el programa anterior: 

210 IF Y=T THEN GOTO 200 
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Esta simple línea hace que se repíta 
el cálculo hasta que el número resul- 
tante sea distinto del proporcionado por 
el jugador. No obstante, esta actuación 
plantea un inconveniente: si el rango de 
valores posibles se limita a un solo nú- 
mero, y éste coincide con el elegido por 
el adversario, la ejecución entrará en un 
bucle cerrado. 

En efecto, el ordenador calculará 
siempre el mismo valor Y que coincide 
con T, y saltará de nuevo a la línea 200. 

Este tipo de bucles que no tienen sa- 
lida (al igual que los del tipo 100 GOTO 
100) se denominan «bucles infinitos». El 
programador debe huir de estos bucles, 
ya que introducen al programa en un 
«callejón sin salida». 



denador no le queda más remedio que 
rendirse ante la evidencia de su derrota, 

220 IFY^TTHEN PRINT 'ACERTASTE' 

La otra posibilidad es que seleccione 
un valor distinto al del contrincante (T e 
Y son distintos} Ello indica que todo va 
bien y el ordenador puede emitir su pro- 
nóstico y mostrar su jugada: 

230 IF YOT THEN PRIIMT "YO DIGO Y 
300 PRINT "LLEVO 1 ;MIAS 

Si el usuario quiere ahorrarse el tra- 
bajo de contar las fichas de uno y otro 
participante e ir llevando el tanteo acu- 
mulado, ha de completar el programa 



con algunas líneas más. En primer lu- 
gar, el ordenador debe conocer el nú- 
mero de fichas jugado por el oponente, 
para hallar la suma total. La recogida de 
este dato se realizará por medio de un 
comando INPUT. 

290 1NPUT "CUANTAS LLEVAS "TUYAS 

Como se observa, esta línea se ha co- 
locado inmediatamente antes de que el 
aparato muestre su jugada (línea 300). 
Así se evitan cambios de última hora por 
parte del operador humano. 

Una vez conocido este dato, hay que 
proceder a su suma y posterior compa- 
ración con los pronósticos de ambos ju- 
gadores. 
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Esquema de las tareas que 
hay que realizar para 
construir el programa «El 
juego de los chinos». 



Así pues, sólo debe recalcularse el 
pronóstico cuando el rango incluya al 
menos 2 valores posibles, O lo que es 
lo mismo, cuando MIN y MAX tomen va- 
lores distintos. La anterior línea 200 se 
sustituiría, en consecuencia, por la que 
sigue: 

210 IF Y=T AND MINOMAX THEN GOTO 200 

Ahora la ejecución puede continuar 
de dos posibles formas: 

— Al calcular un número distinto del 
ofrecido por el oponente. 

— Cuando el contrario ha elegido el 
único valor posible. 

En el segundo caso no cabe duda de 
que el jugador humano ha acertado. Di 
cha situación se dará cuando, al pasar 
a la siguiente línea, los valores de T e 
Y sean idénticos. En ese momento, al or- 




I Los bucles infinitos son estructuras cíclicas que encierran el flujo de o :g a 
impidiendo que evolucione la secuencia de proceso. El programador 
debe evitar su formación accidentat 
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■ Escenario de fa batalla programada como tercer ejemplo 
de juego con el ordenador. 



330 IF S=T THEN PRINT "GANAS TU":LET HU=HU+1 
400 PRIMT J HU MANO: I CRO: M I 

Se ha incluido la línea 400 que mues- 
tra la puntuación alcanzada por los ju- 
gadores hasta ese momento. Para evitar 
que ninguno de los participantes empie- 
ce con ventaja, es necesario inicial izar 
a cero ambos contadores al principio de 
la partida: 

10 LET HU=0:IJET Ml=0 

Por último, al final del programa hay 
que incluir una instrucción que permíta 
volver a jugar. El salto se realiza a la lí- 
nea 2G, en la que empezará una nueva 
partida. 

1000 GOTO 20 

Queda al gusto del lector la inclusión 
de una rutina de espera entre las líneas 
400 y 1 000; rutina que otorgue el tiem- 
po suficiente para elegir la siguiente ju- 
gada. El programa completo (CHINOS) 
aparece listado en el cuadro adjunto. 



310 LET S=TUYAS+MIAS 

320 IF S=Y THEN PRINT "GANO YO" 

330 IF S-T THEN PRINT "GANAS TU" 

En las líneas 320 y 330 es donde se 
compara el resultado final con los nú- 
meros propuestos por los jugadores. Si 
alguno de ellos acierta, se informa 
quién es el ganador. 

También es posible llevar la cuenta de 
los aciertos de cada contendiente. Para 
ello basta con incrementar un contador 
particular cada vez que tenga lugar ese 
hecho. El lugar apropiado para introdu- 



cir las órdenes pertinentes es el argu- 
mento de THEN de las líneas 320 y 330. 
Para poder incluir en ellos tanto la im- 
presión del mensaje como la actualiza- 
ción del contador, se hará uso de la po- 
sibilidad de encadenar varias órdenes 
en la misma línea. Esto, como ya se vio, 
se realiza separándolas con el símbolo 
dos puntos (:). 

Así pues, en las dos nuevas líneas las 
variables MI y HU llevan la cuenta de 
las partidas ganadas por el «micro» y el 
«humano», respectivamente. 

320 IF S=Y THEN PRINT "GANO YO": LET MI=MI+1 



Un juego de habilidad 

El siguiente programa consiste en un 
juego de habilidad. El jugador ha de dis- 
parar a un blanco móvil. Dicho blanco 
es un transporte enemigo que debe ser 
destruido a toda costa. 

El problema se va a afrontar con un 
criterio de medularidad, diseñando cada 
parte por separado, para al final unirlas 
todas. 

El vehículo se desplazará a través del 
borde superior de la pantalla. Ello sig- 
nifica que habrá que dibujar el blanco 
sucesivamente en las distintas posicio- 





L 



x 



FOR X = 1 TO 25 

PRINT AT (X,2) *’< Vehículo >” 

NEXT X 



I 



El movimiento del vehículo 
enemigo se simula 
emplazando a éste r 
sucesivamente . a mayor 
distancia del borde 
izquierdo de la pantalla. 
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nes* Las líneas que dibujan el vehículo 
son las siguientes: 

110 PRINT AT[X ( Y) "LLL" 

120 PRINT AT(X,Y) "0 0" 

Los parámetros Y de la función AT 
adoptarán los valores 1 y 2, respectiva- 
mente, para que el blanco se mantenga 
en las dos líneas superiores. El paráme- 
tro X variará desde 1 hasta el valor que 
lleve al vehículo al extremo de la pan- 
talla, La variación se consigue ence- 
rrando ambas instrucciones dentro de 
un bucle FOR/NEXT. 

100 FOR X=1 10 25 
110 PRINT ATfXI) TLL" 

120 PRINT AT(X,2) "0 0” 

130 NEXTX 

Esta zona del programa hará que se 
desplace el blanco, Pero, al no borrarse 
Ea posición anterior persistirá en la pan- 
talla el rastro del recorrido: 



RUN 

LLLLLLLLLL LL 

0000000000 o o 



Esto se soluciona introduciendo, sen- 
cillamente, un espacio en blanco al 
principio de cada una de las cadenas 
que representan al vehículo. 

100 FÜRX^I T0 25 
110 PRINT AT(X r 1) " LiL" 

120 PRINT AT(X r 2| " 0 0" 

130 NEXTX 



De esta forma, los espacios borrarán 



la imagen de las posiciones preceden- 
tes. 



RUN 

LLL 

00 



Con el enemigo ya funcionando, lo 
que hay que hacer ahora es dibujar 
nuestro cañón. Se tomará como repre- 
sentación del mismo un carácter cuyo 
aspecto recuerde la forma del mismo. La 
letra L puede servir para ese propósito. 
Esta se colocará en un punto central de 
la zona inferior de la pantalla. Por ejem- 
plo, en la columna 15 de la vigésima 
fila. Dichos valores, al igual que el 25 
del bucle FOR anterior, pueden ser mo- 
dificados al gusto del usuario. La línea 
que sitúa el cañón puede ser la siguien- 
te: 

50 PRINT AT(17,20yr 

Ahora viene la rutina de disparo. Esta 
se utilizará a modo de subrutina, por b 
que es conveniente separarla del resto 
del programa. 

1000 FGRM9T0 2STEP-1 
1005 FOR J=Q T0 2 
1010 PRINT AT[172)T 

1020 PRINT AT{1 72) 

1025 NEXT J 
1030 NEXT I 

Esta rutina traza la trayectoria de pro- 
yectil empleando el carácter L Su des- 
plazamiento tiene lugar a lo largo de i 
columna 17 de la pantalla, colu.-'^ r_- 
corresponde a ia posición del cañó' - 
bucle en J hará que el proyect z¿rz-z- 
dee en cada posición antes de zesac-s 
recer. 

La rutina de disparo únicame~:e s¡5 ~ = 
de ejecutar cuando se pulse Lira tre - 
para ello, es preciso incluir a «5, 'as - 
neas que reconozcan la pulsacior - - 
neas que deben estar loca l ¡zades é-- = 
zona del programa que mueve e 



10 REM ADIVINALO! 

20 LET MINUM=INT(100*RND) 

30 PRINT JJ HE PENSADO UN NUMERO DEL 
CERO AL CIEN" 

100 IIMPUT "CUAL ES";TUNUM 
110 IF TUNUM>MINUM THEN 
PRINT"NOOO!! ES MENOR" 

120 IF TÜNUM<MINUM THEN 
PRINTNOÜOn ES MAYOR" 

130 IF TUNUM=MINUM THEN 
GOTO 200 
140 GOTO 100 

200 PRINFMUY BIEN,ERA EL ";M1NUM 
210 PRINT"JU GAMOS OTRA VEZ (S/N)?" 
220 LET A$=1NKEY$ 

230 IF A$= J 'S" THEN GOTO 20 
240 IF Alo' N" THEN GOTO 220 
250 PRI NT" HASTA LA PROXIMA!" 



5 REM CHINOS 
10 LET HU=Ü:LET Ml=0 
20 LETMIAS=1NT(4*RND) 

30 INPUT "CUANTAS";! 

100 LET MUÑÍ =T — 3 
110 IF MINcO THEN M!N=0 
120 LET MAX=T 
130 IF MAX >3 THEN MAX=3 
200 LET Y=MIAS+INT(RND*(MAX-MIN 
+ D1+MIN 

210 ÍF Y-T AND MINoMAX THEN 
GOTO 200 

220 IF Y-T THEN PRINT "ACERTASTE" 

230 IF YoT THEN PRÍNT "YO DIGO ";Y 
290 INPUT "CUANTAS LLEVAS";TUYAS 
300 PRINT "LEVO"; MIAS 
310 LET S=T(JYAS+MIAS 
320 IF S=Y THEN PRINT "GANO YO”: LET 
M1=MI + 1 

330 IF S=T THEN PRINT "GANAS TU": LET 
HU=HU+1 

400 PRINT "HUMAN0:";HU; "MICRO:"; MI 
1000 GOTO 20 



co; en caso contrario, el disparo sólo po- 
dría efectuarse cuando el enemigo ya ha 
rebasado la posición del cañón. 

122 LET T$=INKEY$ 

124 ÍF T$0 THEN GOSUB 1000 

La rutina de disparo no está completa 
aún. Es necesario detectar si se ha pro- 
ducido una colisión entre el proyectil y 
el blanco. Tal operación se realiza al fi- 
nal de la rutina de disparo. Lo único que 
hay que hacer es cerciorarse de que el 
objetivo se encuentra (o no se encuen- 
tra) en la vertical del cañón. Este hecho 
se produce cuando la variable X adquie- 
re los valores 16, 15 ó 14. 

Así pues r se plantea una condición 
que de cumplirse indicará que se ha al- 
canzado el objetivo: 

1100 IF X>13 AND X<17 THEN GOTO 2000 
1110 RETURM 



El efecto de ambas líneas desvía la 
ejecución hacia la línea 2000 si se pro- 
duce la colisión, u ordena el retorno al 
programa principal en el caso contrario. 
Su actuación permite el tratamiento 
aparte (línea 2000) de la colisión. Dicho 
tratamiento consistirá en visualizar la 
explosión y reiniciar el programa; desde 
luego, también se puede actualizar un 
contador que indique el número de 
blancos acertados. 

2000 F0R J=0 T0 50 
2010 PRINT AT(1 7,1 P” 

2020 PRINT AT( 1 7,1 F '* 

2030 NEXTJ 

2040 LET PUNT0S=PUNTÜS+1 
2050 X=25 
2060 RETUR N 

En estas últimas líneas se ha inclui- 
do un bucle (líneas de la 2000 a la 
2030) que imprime y borra, alternativa- 
mente, un asterisco en el punto de im- 
pacto del proyectil* Ello produce un 



efecto de explosión. El bucle se repite el 
número de veces suficiente como para 
que se aprecien los daños producidos. 

La línea 2040 es la encargada de in- 
crementar en una unidad el controlador 
de aciertos. Como se puede observar, la 
actualización de PUNTOS sólo se efec- 
túa en el caso de alcanzar el objetivo. 

La línea 2050 del listado pone el va- 
lor de X a 25. Con ello se consigue dar 
por terminado el bucle comprendido en- 
tre las líneas 100 y 130, al retornar de 
la subrutína. De esta forma, el carro 
enemigo alcanzado no continúa su mar- 
cha. 

Por último, la línea 2060 proporciona 
el punto de retorno de la subrutina, en 
el supuesto de que no se haya produci- 
do el regreso en la 1 1 10. 

El programa completo (BATALLA) ex- 
hibirá el aspecto que muestra el cuadro 
adjunto. La línea 30 limpia Ea pantalla 
para evitar que se superponga el esce- 
nario del juego a cualquier texto ante- 
rior. La siguiente línea (40) muestra los 
aciertos en la zona inferior izquierda de 
la pantalla. La variable PUNTOS es ini- 
ciaíizada en la línea 20. Por fin, la línea 
150 reinicia la ejecución cuando no se 
destruye el objetivo. 



10 REM BATALLA 
20 LET PUNTOSA 
30 CL3 

40 PRINT AT[1,20| r PUNTOS rH ;PUNT0S 
50 PRINT AT[17,20) r T 
100 F0R X r 1 T0 25 
110 PRINT AT(X,1) " LLL” 

120 PRÍNT AT(X r 2) '0 0' 

122 LET T$4NKEY$ 

124 IFT$C>" "THEN GOSUB 1000 
130 NEXTX 
150 GOTO 30 

1000 FQRM9T0 3STEP-1 
1005 F0R J=0 T0 2 
1010 PRINT AT[17J]T 
1020 PRINT AT|1 7,1)”" 

1025 NEXTJ 
1030 NEXTI 

1100 IFX>13 AND X<17 THEN GOTO 2000 
1110 RETURN 
2000 F0R JOTO 50 
2010 PRINT AT[1 7,1]"*" 

2020 PRINT AT(17,ir " 

2030 NEXTJ 

2040 LET PUNT0S=PUNTOS+1 
2050 X=25 
2060 RETURN 
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Juegos 

medida» El campo minado 



H n este nuevo capí- 
tulo, dedicado a la 
práctica del len- 
guaje BASIC, se 
acometerá la con- 
fección, paso a paso, de un programa 
adecuado para ejecutar el tradicional 
juego del «campo minado». 

Como apunta el nombre, el objetivo 
del juego es cruzar con éxito el peligro- 
so trayecto, sorteando las minas ocultas 
que pueden hacer saltar a nuestro per- 
sonaje por los aires. 

Como instrumento de ayuda, el juga- 
dor dispone de un detector de minas que 
le informa, mediante un pitido, de la in- 
mediata proximidad de un artefacto ex- 
plosivo. Para cruzar el campo minado, 
el personaje puede desplazarse en cua- 
tro sentidos: arriba, abajo, derecha e iz- 
quierda. 

El proceso a seguir para el desarrollo 
del programa se expondrá con toda 
suerte de detalles en los próximos pá- 
rrafos. El diagrama de flujo adjunto re- 
sume ía estructura general de] progra- 
ma a confeccionar. 



manera que ejecutando la siguiente ins- 
trucción: 

PRINT CHR$[26) 

se obtendrá como resultado el borrado 
de la pantalla. 

También es posible que no se emplee 
un único código para el borrado de \b 
presentación visual, sino que el equipo 
exija la puesta en práctica de una com- 
binación de códigos; por ejemplo 

PRINT CHR$[27)+'“E" 



En la propia línea 20 del programa 
también es posible seleccionar e modo 
gráfico adecuado para que en él se de- 
sarrolle el juego. En este caso, sí es to- 
talmente obligado remitir al lector ai 
manual de su ordenador, ya que ¡as di- 
ferencias son drásticas de uno a otro 
equipo. 

Si el equipo utilizado es un ordenador 
personal del tipo MSX, I8M-PC o com- 
patible, será necesario en este punto 
eliminar de la pantalla la presentación 
que ocupa su zona inferior, presentación 




El movimiento del personaje a través 
del campo minado bajo el control de 
las teclas A W, O, y X. 



Preparación de la pantalla 

Para empezar es conveniente prepa- 
rar la pantalla de forma adecuada. En- 
tre las operaciones que conducirán a tal 
preparación se encuentra el borrado de 
la pantalla y la selección del modo grá- 
fico más idóneo. 

10 REM JUEGO DEL CAMPO MINADO 
20 CLS SCREEN 2 

La línea 20 es la encargada de borrar 
la pantalla por medio del comando CLS. 
Evidentemente, en los ordenadores que 
no posean esta instrucción será necesa- 
rio sustituirla por su equivalente. Al 
efecto, es conveniente recordar la exis- 
tencia de los códigos de control, alguno 
de los cuales permitirá realizar esta 
misma acción. 

Los códigos de control son propios de 
cada aparato; en consecuencia, no es 
posible precisar en estas páginas el có- 
digo específico asociado a cada ordena- 
dor. No obstante, sí cabe mencionar que 
uno de los más corrientes es el 26, de 
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CAMPO MINADO 



Las variables X e Y 
contienan, 
respectivamente, fas 
coordenadas 
horizontal y vertical de 
la posición que ocupa 
el personaje dentro del 
campo . 





programar consiste en el borrado de 
la pantalla, bien mediante el 
comando CLS, bien mediante alguna 
orden equivalente propia del dialecto 
BASIC que estemos utilizando l 



que recuerda los comandos disponibles 
en las teclas de función. Ello se logra, 
sencillamente, ejecutando la siguiente 
instrucción: 

40 KEYOFF 

Claro está que si esta franja de co- 
mandos no aparece en la pantalla de su 
ordenador, resultará inútil la inclusión 
de este comando. 

Minado del campo 

Para saber en qué puntos del campo 
se encuentran las minas, recurrimos ai 
artificio de crear una matriz con tantos 
elementos como posibles casillas pue- 
da recorrer nuestro personaje. Acto se- 
guido, es preciso que el programa colo- 
que las minas en el terreno en el que 



se va a desarrollar el juego, adoptando 
un criterio aleatorio: 

50 DIM A{31 r 21) 

60 REM COLOCACION DE LAS MINAS 

70 POR 1=1 TO 40 
80 X2=1+INT|RND*30| 

90 Y2=1 +ÍNT(RND*2Ü) 

ICO X2-1 AND Y2=1 THEM GOTO 110 ELSE A(X2,Y2)=1 
no NEXTf 

Esta rutina emplaza las minas de for- 
ma aleatoria a lo largo del escenario de 
juego. El número de minas depositadas 
se eleva a 40; sin embargo, difícilmente 
se podrán encontrar todas estas minas 
en el campo a cruzar, puesto que no se 
ha previsto ningún control para evitar 
que coincidan dos minas en el mismo 
lugar. Este hecho hará que aumente la 
aleatoriedad del juego. 

La línea 50 se encarga de dimensio- 
nar la matriz A. La dimensión que real- 
mente se va a utilizar se concreta en 
30x20 elementos; no obstante, es pre- 
ciso añadir un elemento más, por di- 
mensión, para evitar inconvenientes 
que surgirán más adelante. 

Las restantes instrucciones de la ru- 
tina definen un bucle que comienza en 
la línea 70 y termina en la 1 1 0. Este bu- 
cle colocará una mina en cada una de 
las pasadas; por supuesto, de forma 
aleatoria. Dentro del bucle, las líneas 
80 y 90 generan la posición de la mina; 
posición que se calcula a partir de! nú- 
mero aleatorio entregado por la función 
RND. Dicho valor ha de someterse a un 
cambio de escala para que resulte un 
número comprendido dentro del margen 
de 1 a 20 en el caso de Y2, y de 1 a 30 
en el caso de X2. 

Por último, la línea 100 inspecciona 
la casilla de origen (1,1) para evitar que 
coloque en ella una mina. La referida li- 
nea 1 00 puede ocasionar dificultades en 
el caso de que un dialecto BASIC utili- 
zado no incorpore la estructura 
IF/THEN/ELSE; en tal situación es re- 
comendable cambiar la línea 100 por el 
par de instrucciones siguientes: 

100 IF Y2=1 AND X2=1 THEN GOTO 110 
105 A(X2,Y2)=1 

Para delimitar el terreno de juego se 
utilizará en la pantalla una línea que de- 
fina su perímetro. De ello se encargarán 
Jas instrucciones que siguen: 
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Si el ordenador que estamos usando 
es un ¡BM-PC o compatible, o un 
MSX, será necesario eliminar de la 
pantalla la línea inferior que 
representa las funciones asignadas a 
las teclas de función. Para ello se 
emplea la orden KEY OFF \ 



Las instrucciones necesarias para 
esta operación pueden incluirse en una 
sola línea de programa, separando la 
inicialización de cada una de las varía- 
bles por medio del signo dos puntos: 

140 X=1 : Y=1 : XI =1 :Yi-i 



ción. A su vez, las variables XI e Y1 se 
emplean para conservar el valor de la 
posición que ocupaba anteriormente el 



El desplazamiento a través del rectán- 
gulo de juego ha de controlarse desde 
el teclado. Para edo es necesario incluir 
una serie de instrucciones que permitan 
al programa detectar las pulsaciones 
que efectúe el usuario sobre el teclado. 
La función BASIC adecuada para 




■ Para el minado del campo se recurre al artificio de crear una matriz con tantos elementes , . v . -- as pueda reconer el 
personaje. Por supuesto, la colocación de las minas se realiza de forma aleatoria. 



120 REM TRAZADO DEL COMTORNO 
130 UNE [7,7j— (248,1 68)„B 

Esta última instrucción debe ser sus- 
tituida en cada caso por su equivalente 
en el ordenador que se utilice. En esen 
cía, su misión es crear un rectángulo 
que delimite la superficie; la esquina 
superior izquierda de este rectángulo se 
encuentra en el punto 7,7 y la Inferior 
derecha en el 248,168. 

Definición y movimiento del 
personaje 

Tras ello, resulta conveniente inicia 
lizar las variables que definan la posi 
ción del jugador dentro del campo Es 
tas variables, coincidentes con X e Y 
contienen el valor actual de dicha posi 



personaje. La inicialización de estas va- 
riables exige precisar cuál será la posi 
ción inicial del personaje 



este ;:“e: -o es INKEY$, puesto que 
e* re r" a tecla de retorno :§ : e 
" : ~ - ordenador entienca z - e 




A lo largo del 
programa se torra ~ 
abundantes déos : nes 
basadas en la 
evaluación de 
condiciones lógicas Si 
la condición se 
verifica, el resultado 
obtenido e$ «aere 
f 1 ) En caso contrar* 
svm dalso» (OI 



I 




Sí el programa detecta la presencia de una mtna en 
la misma casilla que el personaje, se producirá un 
salto a la rutina de salida asociada a «Derrota», 



SALIDA 




ENTRADA 




TABLA DE FUNCIONES LOGICAS 







Datos 




Funciones lógicas 


A 


B 


Ay B 


A o B 


no A 


no B 


verdadero 


verdadero 


verdadero 


verdadero 


falso 


falso 


verdadero 


falso 


falso 


verdadero 


falso 


verdadero 


falso 


verdadero 


falso 


verdadero 


verdadero 


falso 


falso 


falso 


falso 


falso 


verdadero 


verdadero 






AND 


OR 




IMOT 
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Sí la travesía culmina con éxito, el 
programa bifurcará al punto de salida 
« victoriosa k y reflejará en la pantalla 
el número de movimientos realizados. 



el mensaje ha de ser aceptado y anali- 
zado: 

160 B$=INKEY& IF 6$=" Jr TEHN GOTO 160 

Por supuesto, la próxima operación a 
realizar consiste en analizar lo que el 
operador ha introducido. Llegados a este 
punto hay que estudiar qué teclas se uti- 
lizan para ordenar ios movimientos a 
través del escenario del juego. Parece 
conveniente en este caso elegir teclas 
distribuidas de una forma lógica; por 
ejemplo, D, A, X y W 

El siguiente bloque de instrucciones 
se encargará de actualizar los valores 
de X e Y en función de la tecla que se 
pulse en cada instante: 



TABLA DE VARIABLES 


A|) 


Matriz que almacena la posición 


1 


Indice de bucle. 


B$ 


de las minas. 


X,Y 


Posición actual del personaje. 


Variable que contiene el carácter , 


X1,Y1 


Posición anterior del 




pulsado. 




personaje. 


CON 


Contador de movimientos. 


X2,72 


Coordenadas para la 
generación de las minas. 



170 IF X<30 THEN X=X— (B$="D"J 
180 IF X>1 THEN X=X+(B$=7f) 

190 IF Y<20 THEN Y=Y— 

200 IF Y>1 THEN Y=Y+(B$="W r ') 

Es muy posible que las operaciones 
situadas tras cada condición resulten un 
tanto extrañas. De hecho, no es muy or- 
todoxo mezclar la evaluación de condi- 
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□iones con instrucciones aritméticas; 
sin embargo, ello está permitido. 

La evaluación de cada condición im- 
puesta produce un resultado igual a 
cero si la condición es falsa, e igual a 
-1 cuando la condición resulta ser cier- 
ta. En este caso se aprovecha directa- 
mente el resultado de evaluar 3a condi- 
ción para producir las modificaciones 
necesarias en las coordenadas que de- 
finen la posición del personaje. 

Para controlar el número de movi- 
mientos que se realizan hasta terminar 
el juego se emplea una variable conta- 
dora: CON. Su valor se imcializa a cero 
en la línea 30 y se incrementa sucesi- 
vamente tras cada movimiento. 

210 C0N=C0N+1 

El siguiente paso consiste en colocar 
en la pantalla a nuestro personaje, re- 
presentado por un asterisco, y borrar el 
asterisco de la posición que ocupaba an- 
teriormente. 

220 LOCATE ¥1 + 1, XI +1 
230 PRINT " " 

240 LOCATE Y+U+1 
250 PRINT"*" 

Las instrucciones de las líneas 220 y 
240 trasladan el cursor a la posición de 
pantalla adecuada, ya sea para imprimir 
un espacio en blanco encima de la po- 
sición que el personaje ocupaba ante- 
riormente, o bien para visualizar el as- 
terisco en la posición actual. La posición 
que anteriormente ocupaba el asterisco 
en la pantalla se almacena en las va- 
riables XI e Yt. Para ello se asignan a 
estas variables los valores de X e Y, an- 
tes de actualizar estos últimos. Así, tras 
la actualización de X e Y, XI e Y1 con- 
servarán el contenido precedente de las 
variables X e Y. La instrucción adecua- 
da para realizar esta asignación es la si- 
guiente: 

260 XI =X ; Y1 =Y 



¿Exito o explosión? 

Tras actualizar la posición, la próxima 
tarea que debe ocupar el programa es 
comprobar a dónde íleva el movimiento 
realizado. Al efecto, es necesario efec- 



( comienzo ) 

r 




CAPTACION DE 
UNA PULSACION' 



I 



ACTUALIZACION 

POSICION 






DIBUJO 

ASTERISCO 
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Diagrama de flujo correspondiente al 
programa « Campo minado». 



280 IF X=30 AMO Y=20 THEN GOTO 360 

La línea 280 comprueba si se ha al- 
canzado la esquina opuesta del campo 
minado, cuyas coordenadas son X=30 e 
Y = 20. Si se ha llegado a dicho punto se 
producirá una bifurcación hacía la línea 
360, donde se encuentra la rutina ade- 
cuada para tratar este supuesto; 

290 !FA(X,Y)=1 THEN GOTO 340 

Por su parte, en la 290 se comprueba 
si la posición que ocupa el personaje en 
este preciso instante coincide con una 
de las minas. De ser cierto el juego ha- 
brá terminado con una fatal consecuen- 
cia. De inmediato se bifurcará a una ru- 
tina situada a partir de la línea 340, la 
cual imprimirá el oportuno mensaje an- 
tes de poner fin al programa: 

310 IF A(X+1 f Y|=l ORAfX— 1,Y)=1 0RA{X,Y-1)=1 0R 
A(X,Y— 1)=1 THEN- BEEP 



Esta línea de programa es la encarga- 




tuar una serie de comprobaciones y to- 
mar las oportunas medidas dependien- 
do de los resultados que se obtengan: 



da de simular la actuación del detector 
de proximidad de minas. Genera un so- 
nido a través del altavoz en el caso de 
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10 REM JUEGO DEL CAMPO MINADO 
20 CL5 s SCREEN 2 
30 CON = 0 
40 KEY OFF 
50 DIM A ( 3 1 , 2 1 ) 

60 REM COLOCACION DE LAS MINAS 
70 FOR 1=1 TO 40 
80 X2 = 1 + INT ( RND* 3 0) 

90 Y2= 1 + INT{ RND* 2 0) 

100 IF X2= 1 AND Y2 = 1 THEN GOTO 110 ELSE A(X2,Y2)=1 
110 NEXT I 

120 REM TRAZADO DEL CONTORNO 

130 LINE ( 7,7>-(248, 168), ,B 

140 X=1 : Y=1 :X1=1 :Y1=1 

150 REM ACTUALIZACION DE LA POSICION 

160 B$=INKEY$ : IF B$ = "" THEN GOTO 160 

170 IF X< 30 THEN X=X-(B$="D") 

180 IF X>1 THEN X=X + { B$ = "A" ) 

190 IF Y< 20 THEN Y = Y- ( B$ = "X " ) 

200 IF Y> 1 THEN Y=Y+ ( B$ * "W" ) 

210 CON=CON+ 1 

220 LOCATE Y1+1,X1+1 

230 PRINT ” " 

240 LOCATE Y+1,X+1 
25 0 PRINT 
260 X1=X:Y1=Y 

270 REM COMPROBACION DE LA POSICION CON RESPECTO A LAS MINAS 

280 IF X=30 AND Y=20 THEN GOTO 360 

290 IF A(X,Y)=1 THEN GOTO 340 

300 REM COMPROBACION DE PROXIMIDAD DE MINAS 

310 IF A(X+i,Y)=l OR A(X~1,Y)=1 OR A(X,Y+1)=1 OR A(X,Y-1)=1 THEN BEEP 
320 GOTO 160 

330 REM RUTINAS DE FIN DEL JUEGO 
340 PRINT "SE ACABO, HAS PERDIDO" 

350 END 

360 PRINT "GANASTE TRAS ";CON;" INTENTOS" 

370 END 



que se encuentre una mina en las pro- 
ximidades de la posición que ocupa el 
personaje. 

Por último, tan sólo queda retornar al 
comienzo de la rutina encargada de ac- 
tualizar la posición: 

320 GOT0 160 

Al programa le faltan únicamente las 



dos rutinas de fin del juego: una a eje- 
cutar en el caso de cruzar con éxito el 
campo minado, y otra que se ejecutará 
cuando el personaje tropiece con una de 
las minas. La rutina que tomará ei con- 
trol en caso de percance se reduce a dos 
líneas de programa: 

340 PRINT "SE ACABO, HAS PERDIDO" 

350 END 



al igual que la asociada a un final vic- 
torioso: 

360 PRINT "GANASTE TRAS "iCON;" INTENTOS" 

370 END 

Junto al texto se reproduce eNistado 
completo del programa, salpicado por 
algunos comentarios (REM) que facilita- 
rán la asimilación del mismo. 
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El BASIC 

. Estadísticas por 

CientlTICO ordenador 




I empleo del orde- 
nador en la socie- 
dad actual se fun- 
damenta en su 
gran potencia de 
cálculo. La mayor parte de las activida- 
des en las que se hace necesario el uso 
del ordenador implican manipular un 



enorme volumen de datos. Para el ma- 
nejo eficiente de grandes cantidades de 
datos es obligada una velocidad de cál- 
culo también grande. Es ahí donde en- 
tra en juego el ordenador. Su capacidad 
de tratar muchos datos en poco tiempo 
lo convierte en una herramienta casi im- 



prescindible. 

En este capítulo se va a desarrollar un 
programa que hace uso de la capacidad 
anteriormente comentada. Se trata de 
un sencillo programa estadístico. Con él 
se pretende, a un tiempo, ejercitarse en 
la programación de tareas matemáticas 
y obtener un ejemplo de lo que se pue- 
de hacer con un ordenador. 




I Ef lenguaje BASIC banda todas las herramientas necesarias para crear programas 
de Upo científico o técnico ejecutables en ordenadores personales , 



Estrategia de programación 

A la hora de crear un programa hay 
que empezar realizando un análisis del 
problema a tratar. En este caso, se sen- 
tarán las bases de lo que se desea que 
haga el programa. En principio, !a esta- 
dística trabaja con un número grande de 
datos. Esos datos serán introducidos por 
el operador para tomar parte, más tar- 
de, en los cálculos pertinentes. Para un 
manejo más adecuado de los datos ha- 
brá que contar con variables de conjun- 
to o arrays- Así pues, el conjunto de da- 
tos a analizar se almacenará en un 
array. 

Una vez determinada la estructura de 
datos, el siguiente paso consiste en de- 
finir los procesos a realizar con los mis- 
mos. El proceso inicial ha de materiali- 
zarse en la introducción de los datos. 
Tras esa introducción de datos se pro- 
cederá al cálculo de los distintos resul- 
tados. 

Los resultados que se van a conseguir 
son los siguientes: 

— Número de datos introducidos. 

— Suma de todos los datos. 

— Valor máximo de los datos. 

— Media aritmética. 



— Varianza. 

— Desviación estándar. 

La última acción a realizar consistirá 
en la presentación de los resultados. De 
esta forma, el problema se subdívide en 
tres partes, de las cuales la segunda 
será la más compleja. 



Introducción de los datos 

Antes de proceder a la introducción de 
los datos es necesario dimensionar la 
matriz que ha de contenerlos. Como 
ejemplo haremos uso de una matriz o 
array de 100 elementos. En el caso de 
desear un mayor número de datos, bas- 
tará con alterar esta primera línea del 
programa. 

10 DINA(IOO) 




100 F0R 1=1 TO 100 
110 INPUTA(I) 

120 NEXT I 




Para la introducción de los datos se 
empleará una instrucción INPUT reite- 
radamente. Ello se puede conseguir con 
el siguiente conjunto de líneas BASIC. 



Estas líneas permiten la i ntrco-crser 
de los datos; sin embargo, ob gsr 
clear exactamente 100 número 
que se desea es el análisis de ^ 



í/t H* 





El programa, tras analizar ¡os datos de entrada, proporciona una serie de 
parametros que dan una idea de ¡as características de¡ conjunto. 



PEQUEÑA 



GRANDE 




DESVIACION MEDIA 



La desviación media indica ¡a dispersión 
de ¡os datos alrededor de la media. 



tidad indeterminada de datos, las líneas 
mencionadas no servirán. Lo correcto en 
este caso sería ir introduciendo datos 
hasta finalizar, y una vez introducido el 
último dato indicar al ordenador que se 
ha completado la fase de entrada de da- 
tos. Esto se puede realizar de la siguien- 
te forma: 



100 LET 1=1 
110 INPUTB 

120 IF B=99 THEN GOTO 200 
130 ÜET AÍIJfB 
140 LEI 1=1+1 
150 GOTO 110 

Ahora se irán recogiendo los datos en 



la variable B. Esta será inspeccionada 
para ver si contiene el dato 99. Este dato 
es el que servirá para indicar la finali- 
zación de los datos. Si no se ha llegado 
al final, se pasa eí valor de B a la ma- 
triz, se incrementa el índice I, y se vuel- 
ve a recoger otro dato. 

Este método funciona correctamente, 
salvo por el hecho de que no permite in- 
troducir el dato 99 como uno más del 
conjunto a analizar. Esto se puede sol- 
ventar de otra forma: utilizando como 
marca de final de datos un carácter no 
numérico. Ello hará que se complique 
el programa un poco más. En primer lu- 
gar, será necesario emplear una varia- 
ble alfanumérica en lugar de B, A esta 
variable habré de aplicársele una fun- 
ción que la convierta en dato numérico 
para su posterior tratamiento aritmético. 

La solución más sencilla consiste en 
utilizar B$en lugar de B y aplicarle lue- 
go la función VAL. El carácter que se- 
ñale el fin de la introducción puede ser 
cualquiera no numérico, aunque aquí se 
utilizará la letra F (de fin). Este sería el 
aspecto de la nueva rutina: 

100 LET 1=1 
110 ÍMPUT B$ 

120 IF B^T J THEN GOTO 200 
130 LET Aíl)=VAL(B$) 

140 LET 1-1+1 
150 GOTO 110 



Cálculos 

Tras la Introducción de los datos, el 
programa ha de proceder al cálculo de 
los resultados. En este apartado se ana- 
lizan las rutinas que proporcionan di- 
chos cálculos. 

Eí primer resultado a calcular es el 
número de datos introducido. Este valor 
será útil para el cálculo de otros pará- 
metros, El número de datos se extrae di- 
rectamente de la rutina de entrada. En 
ella se ha empleado un contador para 
variar el índice de ía matriz A. Pues bien, 
al finalizar la introducción, dicho conta- 
dor contendrá el número de datos que 
se han recogido. Así pues, la variable I 
contiene este primer dato. Para una ma- 
yor claridad del programa se traspasará 
ese dato a una variable específica que 
llevará el nombre de ND (número de da- 
tos): 
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200 LET ND=1 

El resto de los resultados necesitan 
de unos cálculos más complejos que el 
expuesto. La suma de los datos se ha de 
realizar empleando un bucle. Los lími- 
tes de ese bucle son los índices mayor 
y menor de la matriz. El menor va a ser 
siempre 1, ya que se empieza a rellenar 
desde el primer elemento. Sin embargo, 
el índice mayor dependerá de la canti- 
dad de datos introducidos; o lo que es 
lo mismo: viene indicado por el recien- 
temente calculado ND. 

Lina vez conocidos los límites se pro- 
cede a diseñar el núcleo del bucle. 
Como se trata de hallar la suma, basta- 
rá con ir sumando cada dato en una va- 
riable que recoja así el total. Dicha va- 
riable recibirá el nombre de SUM. Y la 
línea que la actualice se limitará a su- 
mar a SU1VI el valor del dato en curso: 

310 FOR 1-1 10 ND 
320 SUM=SUM+A(1| 

330 NEXT I 

En este bucle se emplea de nuevo la 
variable I como contador. Ello no plan- 
tea ningún problema ya que su valor an- 
terior ha sido almacenado en ND (línea 
200). El uso de la misma variable en di- 
ferentes zonas del programa (y para 
usos bien distintos) proporciona un aho- 
rro de memoria. Si se hubiera utilizado 
la variable J, por ejemplo, como conta- 
dor en este bucle el ordenador habría 
reservado espacio para dos variables: I 
y J, Tal como se ha realizado aquí se 
ahorra el espacio correspondiente a la 
supuesta variable J. 

La rutina de suma no está del todo fi- 
nalizada. Es necesario cerciorarse de 
que se suman todos los datos y nada 
más que los datos. Que se suman todos 
(os datos se comprueba por el hecho de 
que el índice I recorre todos los elemen- 
tos introducidos en A. Para evitar que se 
sume algo más, es preciso verificar que 
SUM vale cero en la primera pasada del 
bucle. Si no fuera así, se estaría suman- 
do una cantidad superflua al total. Así 
pues, la rutina completa quedaría de la 
siguiente forma: 

300 LET SUM=Q 
310 FOR 1=1 T0 ND 
320 SUM=SUMM(I) 

330 NEXT I 




La ejecución de esta rutina dejará el 
valor de la suma de los datos en la va- 
riable SUM. 

El siguiente resultado a calcular es el 
máximo de entre los datos proporciona- 
dos, La forma de hailar ese dato consis- 
te en la comparación de los datos dos a 



dos. Tras cada comparación se retiene 
el mayor de los dos datos, y es ese dato 
retenido el que se compara con el si- 
guiente, Tras recorrer todos ¡os datos, 
no cabe la menor duda de que el dato 
arrastrado será mayor o igual que cada 
uno de los que componen el conjunto a 




■ Los datos de partida se introducen en un array para un 
manejo más cómodo por parte del programa. 
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analizar. La formulación en BASIC del 
método indicado es la siguiente: 

110 FOR 1=1 TOND 

420 [F A(f)>WIAX THEN MAX=A(I) 

¿30 NEXTI 

Como en el caso anterior se ha hecho 
uso de nuevo de )a variable I, ahorrán- 
dose así eí espacio de una nueva varia- 
ble. 

En esta rutina puede surgir un proble- 
ma: si el valor inicial de MAX es mayor 
que cualquiera de los del conjunto, se 
producirá un error de cálculo. En efec- 
to, el máximo calculado no correspon- 
derá a ninguno de los datos introduci- 
dos. Una primera solución consiste en 
la inicializacíón adecuada de la variable 
MAX, por ejemplo a cero. La rutina que- 
daría de esta forma: 

400 LET MAX=Q 

410 FOR 1=1 TOMO 

420 IF A(!)>MAX THEN MAX=A(I) 

430 NEXT J 

Pero esta solución no resulta satisfac- 




en la misma entrada de 
datos se realiza el contaje 
de los mismos. Este dato 
se almacena 
posteriormente en la 
variable ND. 



tona en la totalidad de los casos. Si da 
la casualidad de que todos los datos in- 
troducidos son negativos, el cero será 
mayor que todos ellos, reproduciéndose 
el error comentado. Por ello, la mejor 
solución sería inicializar MAX con un 
valor de los contenidos en la matriz. De 
esta forma no se introduciría la posibi- 
lidad de comparar con un valor inexis- 
tente dentro del conjunto a analizar. Se 
inicializará MAX con el primero de los 
datos introducidos. Esto significa que no 
es preciso comparar con el primero y, 
por lo tanto, el bucle puede comenzar 
en 2, De nuevo se muestra el aspecto 
de la rutina mejorada: 

400 LET MAX=A(1) 

410 FOR 1=2 TOND 

420 IF A(ip>MAX THEN MAX=A(I) 

430 NEXTI 

Esta sería, pues, la rutina correcta. El 
mismo método puede emplearse para 
calcular el mínimo de los datos. En este 
caso se habrá de cambiar la compara- 
ción y H por supuesto, el nombre de la va- 



riable empleada. La rutina capaz de cal- 
cular el mínimo es la siguiente: 

450 LET MIN=A(1) 

460 FOR 1=2 TO ND 

470 IF AflKMIN THEN MIN=A(I] 

480 NEXT I 

Los siguientes resultados son ios más 
puramente estadísticos. Para su cálculo 
se hace uso de algunos de los resulta- 
dos ya hallados. El primero y más inme- 
diato de ios parámetros estadísticos de 
un conjunto de datos es Ja media. La 
media se define en base al número de 
datos y la suma de los mismos. Mate- 
máticamente coincide con el cociente 
entre la suma y el número de datos. Su 
cálculo resulta, pues, muy sencillo par- 
tiendo de los datos que ya se conocen. 

500 MED=SUM/ND 



Otro parámetro importante es la des- 
viación media. E! valor medio {media) re- 
cién calculado indica el valor alrededor 
del cual se distribuye el conjunto de da- 
tos. Se llama desviación de un dato a la 
distancia que le separa de la medía. 
Pues bien, la desviación media es la me- 
dia de las desviaciones de los datos del 
conjunto. La desviación media propor- 
ciona una medida de la dispersión de los 
datos. 

Para calcular la desviación medía es 
preciso calcular las desviaciones indivi- 
duales de los datos. Tras ello se ha de 
proceder al cálculo de la media de esos 
valores. Esto es, a sumarlos y dividir di- 
cha suma por el número de datos. Eí 
cálculo de la desviación y la suma de 
ese valor al total puede realizarse de 
una sentada, en el interior del bucle que 
halla la suma tota!. He aquí la rutina 
apropiada: 



550 LET SD=0 
560 FOR 1=1 TO ND 
570 SD-SD^ABS(MED-A(I]] 
580 NEXTI 
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El cálculo de la desviación individual 
se realiza mediante la resta MED-ADO). 
A ese valor se te aplica la función valor 
absoluto (ABS) para eliminar el signo, 
ya que el dato se puede encontrar tanto 
por encima como por debajo. Al dato así 
obtenido se le suma en la variable tota- 
lizadora SD (suma de desviaciones). En 
esta última variable quedará retenido el 
valor de la suma de las desviaciones. 
Para obtener la desviación media basta- 
rá con dividir el valor hallado por el nu- 
mero de datos, tal como se hace en la 
siguiente línea BASIC: 

590 LET DM=SD/ND 

La varianza es otro parámetro que da 
una idea de la dispersión de los datos. 
Sin embargo su cálculo es ligeramente 
diferente al de la desviación media. Lo 
que se halla en este caso no es la me- 
dia de las desviaciones, sino la media 
de los cuadrados de tas desviaciones. 
Esto requiere decir que la rutina de cál- 
culo de la varianza será muy similar a 
la de la desviación media. En realidad el 
único cambio consiste en la sustitución 
de !a función ABS por la operación de 
elevar al cuadrado la desviación. La ru- 
tina tomaría el siguiente aspecto: 



600 LETSD=0 

610 FORM TONO 

620 SD=SDt(MED-A(1))2 

630 NEXT I 

640 LET V=SD/ND 

fl 



Como se puede apreciar, se ha em- 
pleado la misma variable SD para alma- 
cenar la suma de los cuadrados. Ello no 
importa ya que el anterior valor de SD 
no es ya necesario, y en esta nueva ru- 
tina se inieializa de nuevo dicha varia- 
ble. 

El último de los datos a calcular es la 
desviación estándar. Este valor se ase- 
meja en gran manera a la desviación 
media. Si la varianza daba un valor ba- 
sado en los cuadrados de las desviacio- 
nes (y no en las propias desviaciones. 




La ¡legada del carácter F 
indica el final del proceso 
de introducción de datos ■ 




La suma de todos los datos se halla recorriendo la matriz desde el primero al 
último elemento. El total se almacena en SUM. 
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Presentación de los resultados 



La función 
VAL permite 
pasar el valor 
de B$al 
número que 
se deposita en 

m 



DATO 

NUMERICO 




DATO 

ALFANUMFRICO 



C 



B$ 

T 



I 





■ Uno de los parámetros importantes es la media. Este dato se halla 
dividiendo la suma tota! entre el número de datos. 



como la desviación media) la desviación 
estándar corrige esa diferencia. La co- 
rrección consiste en extraer la raíz cua- 
drada del resultado ofrecido por la va- 
rianza. Así pues, la desviación estándar 
no es más que el resultado de hallar la 
raíz cuadrada de la varianza. Esto se co- 
difica en BASIC con una sencilla línea: 



650 LET DE=5QR(V) 

Y con esto se completa la zona de pro- 
ceso de los datos. En este terreno el pro- 
grama calcula los resultados situándo- 
los cada uno en una variable. El siguien- 
te paso consiste en mostrar los resulta- 
dos obtenidos. Este es el tema del si- 
guiente apartado. 



A lo largo de toda ía obra se ha co- 
mentado la importancia de una buena 
presentación de los datos. En el presen- 
te caso se dispone de los siguientes da- 
tos a representar: 

— ND,SUM r MAX, MIN, MED, DM,V 
y DE 

Estos datos se pueden representar en 
pantalla por medio del comando PRINT. 
La forma más sencilla de hacerlo es a 
través de un conjunto de líneas de este 
estilo: 

(número de línea) PRINT "Cnombre del 
resuítado>: ";<variable> 

En el argumento de PRINT se sitúa el 
comentario que identifica el dato a pre- 
sentar. Tras esa cadena se mostrará el 
contenido de la correspondiente varia- 
ble. Entre dato y dato convendrá dejar 
una línea en blanco, para dar una ma- 
yor claridad a la presentación. En con- 
junto, la rutina de salida de datos pue- 
de quedar de la forma siguiente: 

1000 CLS 
1010 PRINT 

1020 PRINT "NUMERO DE DATOS: ";ND 
1030 PRINT 

1040 PRINT "SUMA DE LOS DATOS: ";SUM 
1050 PRINT 

1060 PRINT 'DATO MAXIMO: "MAX 
1070 PRINT 

1080 PRINT "DATO MINIMO: H1 ;MIN 
1090 PRINT 

1100 PRINT "MEDÍA ARITMETICA: "MED 
1110 PRINT 

1120 PRINT "DESVIACION MEDIA: ";DM 
1130 PRINT 

1140 PRINT "VARIANZA: ",V 
1150 PRINT 

1160 PRINT 'DESVIACION ESTANDAR: "DE 

Esta presentación puede reducirse 
con el uso de la particu/a AT en el ar- 
gumento de PRINT. Ello, asimismo, per- 
mite colocar los datos numéricos en una 
misma columna. Con esa nueva facili- 
dad la rutina quedaría como sigue: 

1000 CLS 

1020 PRINT AT[1 h 2) "NUMERO DE DATOS; AT(21,2) ND 
1040 PRINT AT(1,4] "SUMA DE LOS DATOS: AT(21 P 4] 
SUM 
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1060 PRINT AT(1 r 6) 'DATO MAXIMO: AT(21,6) MAX 
1080 PR1NT AT(1,8) "DATO MINIMO: AT(2L8j MtN 
1100 PR1NT ATflJO) "MEDIA ARITMETICA: AT(21,10) 

MED 

1120 PRINT AT(1,12] 'DESVIACION MEDIA: AT(21 r 12) 

DM 

1140 PRINT AT(1,14) ' VARIANZA: r ; AT(21 H 14) V 
1160 PRJNT AT|1 r 16) "DESVIACION ESTANDAR: rH ; 
AT(21,16] DE 



Los enunciados se colocan todos co- 
menzando en la primera columna por 
medio de AT(1 , Y). También se sitúan en 
la misma columna los datos; esta vez en 
la columna 21, siendo el argumento de 
AT {21 , Y). 



MAXIMO 




MINIMO 



Un complemento: salida por Otros datos interesantes son el máximo y el mínimo de la distribución 

impresora 



En programas de este tipo es frecuen- 
te la necesidad de apuntar los resulta- 
dos obtenidos. Ello permite conservar- 
los y evita tener que ejecutar el progra- 
ma cada vez que se desea volver a ver- 
los. El método más sencillo de almace- 
namiento de los resultados consiste en 
plasmarlos en papel, a través de una im- 
presora. Como complemento al progra- 
ma expuesto se añade una rutina de im- 
presión de los datos. 

En principio, la rutina de impresión 
puede ser opcional. Así pues, el progra- 
ma ha de preguntar al operador si de- 
sea esa impresión. Para ello se ha de in- 
cluir una rutina que recoja 3a respuesta 
del usuario. He aquí una posible rutina: 





NUMERO DE DATOS: 


36 


SUMA DE LOS DATOS: 


360 


MEDIA: 


10 


DESVIACION MEDIA: 


362 






La presentación de los 
resultados se limita a 
la visual fzación de la 
cantidad calculada 
para cada parámetro. 

El usuario puede variar 
ia rutina de 
visualización para 
eliminar el aspecto 
espartano que tiene la 
pantalla de la figura. 




2000 PRINT 

2010 PRINT "DESEA SALIDA IMPRESA (S/NJ?" 

2020 LET R£INKEY$ 

2030 IFB$="N"THENEND 

2040 IFB$0"S"THEN GOTO 2020 

2100 LPRINT "ANALISIS ESTADISTICO" 

21 10 LPRINTiPRINT "LOS DATOS INTRODUCIDOS SON 
2120 F0R 1=1 T0 ND 
2130 LPRINT A{l); 

2140 NEXTI 

2150 LPRÍNTiPRINT "RESULTADOS CALCULADOS: ' 
3010 LPRINT 

3020 LPRINT "NUMERO DE DATOS: ";ND 
3030 LPRINT 

3040 LPRINT "SUMA DE LOS DATOS: ";SUM 
3050 LPRINT 

3060 LPRINT "DATO MAXIMO: ";MAX 
3070 LPRINT 




El programa permite la 
salida de resultados 
por impresora . Ello 
evita la necesidad de 
anotarlos a mano 
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5 REM ESTADISTICA 650 LET DE-SQRfV> 

I® DIM Aíl 00) 999 PEH PRESENTACION EM PANTALLA 



99 


REM ENTRADA DE DATOS 


1000 


i m 


LET 1 = 1 


1020 


ii® 


TNPUT E$ 


1040 


120 


IF E$= "F " THEN GOTO 200 


1060 


13® 


LET A U OVALOS* J 


10S0 


140 


LET 1*1 + 1 


1100 


im 


GOTO U0 


1 1 20 


í 99 


FEM NUMERO DE DATOS 


1 140 


200 


LET ND- I 


1160 


299 


REM SUMA 


1999 


200 


LET SUM=0 


2000 


310 


FGR 1=1 TG ND 


2010 


320 


SUM=SUM+AÍIJ 


2020 


330 


NEXT I 


2030 


399 


REM MAXIMO 


2040 


400 ÜET MAX=Aílí 


2100 


410 


FÜR 1=2 TO ND 


21 10 


420 


ÍF A f I ) >MAX THEN MAX=AÍI> 


2120 


430 


NEXT I 


2130 


449 


REM MINIMO 


2140 


450 


LET MIM=A f 1 ) 


2150 


460 


POR 1=2 TO ND 


3010 


470 


IF AÍIKMIN THEN MIN=AÍIJ 


302.0 


430 


NEXT I 


3030 


499 


REM MEDIA 


3040 


500 


MED=SUM/ND 


3050 


549 


REM DESVIACION MEDIA 


3060 


550 


LET SD=® 


3070 


560 


FOR 1=1 TO ND 


3080 


570 


SD=SD+ABSíMED“A f I > 3 


3090 


530 


NEXT I 


3100 


590 


LET DM=SD/ND 


3110 


599 


REM VARIANZA 


3120 


600 


LET SD=0 


■3130 


610 


FOR I=i jo ND 


31 40 


620 


SB=SE+ (MED-AÍI) 12 


3150 


630 


NEXT I 


3160 



64.5? LET V- SD/ND 

649 REM DESVIACION ESTANDAR 



CLS 

PRINT ATíi^J "NUMERO DE DATOS: " J ATÍ21*2> ND 

PRINT AT (1,43 "SUMA DE LOS DATOS: " ; AT (21,4) SUN 

PRJNT AT<í f 6) "DATO MAXIMO: " ; ATf2i,ÓJ MAX 

PRINT ATílpBJ "DATO MINIMO: " ¡ ATí2i,8í MIN 

PRINT AT (i i 10) 'MEDIA ARITMETICA: ‘i ATí21,I0) MED 

PRINT ATa,12í "DESVIACION MEDIA: ATÍ2i,i2) DM 

PRINT AT f 1 , 14 ) “VARIANZA: u S ATC2l,14J V 

PRINT AT i i , 16) "DESVIACION ESTANDAR: 11 i AT (21,16) DE 

REM PRESENTACION EN IMPRESORA 

PRINT 

PRINT Ir DESEA SALIDA IMPRESA fS/Ní?" 

LET BÍ=INKEYÍ 
IF E$™ JI N Jl THEN END 
IF THEN GOTO 2020 

LPRINT -ANALISIS ESTADISTICO" 

LPRINT : LPRINT -LOS DATOS INTRODUCIDOS SON:" 

POR 1=1 TD ND 
LPRINT Aí II l 
NEXT I 

LPRINT: LPRINT -RESULTADOS CALCULADOS:" 

LPRINT 

LPRINT "NUMERO DE- DATOS: " ¡ ND 
LPRINT 

LPRINT "SUMA DE LOS DATOS: Jl j SUH 

LPRINT 

LPRINT "DATO MAXIMO: "¿MAL 

LPRINT 

LPRINT "DATO MINIMO: "jMIN 

LPRINT 

LPRINT "MEDIA ARITMETICA: " J MED 

LPRINT 

LPRINT "DESVIACION MEDIA: Jl \ DM 
LPRINT 

LPRINT "VARIANZA: ";V 

LPRINT 

LPRINT "DESVIACION ESTANDAR: " j DE 



PROGRAMA 1: Listado completo del programa «Estadística», 



3080 LPRINT "DATO MINIMO: "MIN 
3090 LPRINT 

3100 LPRINT "MEDIA ARITMETICA: "MED 
3110 LPRINT 

3120 LPRINT "DESVIACION MEDIA: ";DM 
3130 LPRINT 



3140 LPRINT 'VARIANZA: r ';V 
31 SO LPRINT 

31 60 LPRINT "DESVIACION ESTANDAR: r ';DE 

En esta rutina se ha añadido la impre- 
sión de los datos introducidos (líneas 



2100 a 2140). Ello permite tener juntos 
datos y resultados. El resto de la rutina 
es, en esencia, idéntica a la de presen- 
tación en pantalla. La única variación se 
manifiesta en el uso de LPRINT en lu- 
gar de PRINT. 
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Tablas de 
decisión 



Una técnica para dar 
eficacia a las tareas 
de programación 



n el presente capí- 
tulo se pretende 
introducir al lector 
en una técnica de 
programación que 
le permitirá afrontar con mayor garan- 
tía y eficacia la confección de progra- 
mas. Estas tablas empezaron a utilizar- 
se en programación una vez que se com- 
probó que los tradicionales ordinogra- 
mas no eran suficientes en ciertos ca- 
sos para resolver todas las situaciones 
que se presentaban. 

La primera aplicación en la que se uti- 
lizaron en gran escala las tablas de de- 
cisión fue en el desarrollo de los len- 
guajes COBOL y FORTRAN, alrededor 
de 1958. La razón de su empleo residía 
en la presencia de una gran cantidad de 
decisiones frente a las que era necesa- 
rio elegir un tratamiento. 

Las principales insuficiencias o limi- 
taciones de los ordinogramas son las si- 
guientes: 

— Pueden presentarse varias solo 
ciones para un mismo problema. Y to 
das ellas pueden ser perfectamente vá 
lides. 

— Son difíciles de modificar. Y ésta 
es una necesidad frecuente, puesto que 
habrá que modificar el ordinograrruj 
cada vez que se altere el tratamiento a 
otorgar a las entradas que se presenten 

— Pierden eficacia en los lenguajes 
evolucionados. 

— No son sistemáticos. 



Qué es una tabla de decisión 

En la figura adjunta puede observar- 
se la estructura típica de una tabla de 
decisión. Se observa que está dividida 
en cuatro zonas, representando cada 
una de ellas los siguientes conceptos. 




Proceso que conviene seguir para el desarrollo eficaz y óptimo de un programa 
creación de la tabla de decisión, onhnogmma y programa 




Las tablas de decisión constituyen una técnica que 
aumenta la eficacia de todo programador . 



1 ) Condiciones que se pueden plantear 
Es un inventarío o recopilación de to- 
das las condiciones que intervienen en 
el proceso. 

2} Acciones o tratamientos 
En esta zona se han de incluir todos 
los posibles tratamientos o procesos 
que se deban llevar a cabo a partir de 
las condiciones impuestas. 



3) Entrada de condiciones 

Se incluyen todas las combinaciones 
posibles. En conjunto representa a to- 
dos los posibles casos que pueden sur- 
gir, incluyendo aquellos que no se de- 
bieran presentar en estricta lógica. 

4) Entrada de tratamientos 

Aquí se deben indicar todos los pro- 
cesos o tratamientos a realizar. La se- 



lección de los tratamientos depende, 
evidentemente, de las condiciones que 
se presenten. 

Antes de proseguir, es conveniente 
definir los conceptos que forman parte 
de la terminología asociada a las tablas 
de decisión, 

SITUACION: designa a cada una de 
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TRATAMIENTOS 




.CONDICIONES 




Una labia de decisión relaciona los dos factores esenciales de toda alternativa: 
las condiciones de entrada y sus posibles tratamientos. 



las posibles combinaciones de valores 
que se pueden presentar en las entra- 
das de condiciones. 

REGLA DE DECISION; es el conjunto 
formado por la tabla de decisión y ef tra- 
tamiento inherente a la misma. 



Un ejemplo práctico 

Suponga que pretendemos informar a 
un conductor sobre la acción que debe 
tomar al llegar a un cruce. La decisión 
se ha de basar en dos consideraciones: 



si el semáforo está verde y si se encuen- 
tra algún peatón en la calzada. Y las ac- 
ciones a realizar son: detenerse en el 
caso de que el semáforo no esté en ver- 
de, o si se encuentra algún peatón en 
fa calzada. Para empezar la construc- 
ción de la tabla, situaremos en ella las 
condiciones a partir de las cuales se ha 
de actuar (ver el desarrollo del ejemplo 
en el cuadro 1 ). 

• C1: equivale a la condición de que 
el semáforo está en verde; las posibili- 
dades son SI (verde) o NO (rojo). 

• C2; indica la presencia o no de un 
peatón en la calzada; las posibilidades 
son Sí o NO. 

Tras ello se han de reflejar en la ta- 
bla las diferentes situaciones que pue- 
den presentarse (SI a S4). Estas que- 
dan patentes por medio de grupos de 
respuestas a las condiciones (punto 2 
del cuadro adjunto). 

El siguiente paso (3) consiste en pre- 
sentar en la tabla los diferentes trata- 
mientos a realizar; en este caso son dos: 
continuar detenido, o poner el coche en 
marcha. Concretamente, TI correspon- 
de a permanecer detenido y T2 a poner 
el coche en marcha. 

El siguiente paso es conectarlas di- 
ferentes situaciones con los tratamien- 
tos a los que dan lugar. Para ello ana- 
lizaremos cada una de las situaciones y, 



(ORDINOGRAMA Q 



1 ' 
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■ Aspecto final una vez depurada la 
tabla de decisión del ordinograma 1. 



a partir de las premisas del problema, 
deduciremos cuál es el tratamiento a 
otorgar. 

La primera situación que se refleja en 
la tabla (SI) es «semáforo en verde» y 
«peatón cruzando». En tal caso, el coche 
ha de permanecer detenido para no 
arrollar al peatón. 

La forma de reflejar este tratamiento 
en la tabla es poner un aspa en ei pun- 
to donde se cruzan la columna que co- 
rresponde a dicha situación y la fila don- 
de se encuentra el tratamiento a efec- 
tuar (ver punto 4 del cuadro adjunto). 

A continuación avanzaremos en el es- 
tudio de las restantes situaciones refle- 
jando en las tablas los tratamientos 
oportunos hasta concluir la tabla de de- 
cisión correspondiente al ejemplo pro- 
puesto. 



TABLA DE DECISION 



C1 


S N S S 


C2 


N S S N 


(i) 


(3) : ; 


CN 


S S N N 


TI 


X 


T2 


X 


T3 


X 


(2) 


(4) 


TM 


X 



(1) CONDICIONES 

(2) TRATAMIENTOS 

(3) ENTRADA DE CONDICIONES 

(4) ENTRADA DE TRATAMIENTOS 



■ Estructura de una tabla de decisión . 




(¿FONOGRAMA?) 






1 2 3 4 5 6 7y8 


C1 


SNSNSN- 


C2 


S S N N S S N 


1 C3 


S S S S N N N 


TI 


X 


T2 


X 

X 

X 


13 


X 

X 

X 



De tabla a ordinograma 

Una vez confeccionada la tabla de de- 
cisión, da comienzo la siguiente fase: 
construir el ordinograma que permitirá 
codificar el programa adecuado. 

En el caso que nos ocupa, el ordrno’ 









9 10 11y12 13y 14 y 15 y 16 


C1 


SU- 


02 


S S N 


C3 


S S S N 


TI 




T2 


X 


T3 


X 

X 

x 



grama asociado a la tabla de decisión es 
el que se reproduce bajo el título de or- 
dinograma 1 (ver figura). 

Al observarlo, se deduce de inmedia- 
to que dicho ordinograma no es óptimo 
En efecto, la segunda decisión de la 
rama de la izquierda puede omitirse per 



fectamente, ya que en cualquiera de los 
casos conduce al mismo tratamiento. 

Este hecho puede detectarse en la 
propia tabla de decisión (ver cuadro 2) y 
eliminar en ella tal redundancia. 

Observando la tabla con más detalle, 
se descubre que las situaciones SI yS2 
conducen a un mismo tratamiento. Es 
obvio, pues, que para C2 verdadera (S) 
es posible prescindir del resultado de Ja 
condición C1; sea cual fuere su estado, 
siempre lleva ai mismo tratamiento. 

Esta situación, recibe el nombre de 
«indiferencia». En la tabla quedará refle- 
jada según muestra el gráfico 2 del cua- 
dro 2. 

EJ nuevo ordinograma resultante apa- 
recerá bastante más simplificado (ordi- 
nograma 2). 



Clasificación de las tablas de 
decisión 

De acuerdo ai tipo de condiciones que 
se planteen, las tablas de decisión pue- 
den ser clasificadas en tres categorías: 

• TABLAS LIMITADAS 
En ellas las decisiones se pueden 




Tratamiento de ¡as distintas situaciones producidas 
al lanzar una moneda cuatro veces . 
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plantear simplemente como que «se 
cumplen» o «no se cumplen»: un SI o un 
NO. 

• TABLAS AMPLIADAS 

Son aquellas en las que las decisio- 
nes no se pueden plantear en los térmi- 
nos estrictos SI o NO, y es necesario re- 
currir a un acontecimiento de valores, 

• TABLAS MIXTAS 
Evidentemente, esta categoría englo- 



ba a las tablas en las que aparecen mez- 
cladas decisiones de ambos tipos. 

Un ejemplo evolucionado 

Para ilustrar con todo detalle el uso 
de las tablas de decisión, vamos a de- 
sarrollar un ejemplo bastante más com- 
plejo que el utilizado al principio para 
introducir esta técnica. 



Ahora, el número de posibles situa- 
ciones es bastante mayor, hecho que 
permitirá observar las facilidades que 
ofrecen las tablas de decisión a la hora 
de simplificar un problema complejo en 
el que intervienen un gran número de 
decisiones. 

Se desea crear un programa que indi- 
que si se ha obtenido premio, y que re- 
vele su cuantía, en e! siguiente juego: 
se lanza una moneda al aire 4 veces y 
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(ORDINOGRAMA 6) 




Ordinograma final resultante de la asociación de los ordinogramas parciales 3, 4 y 5 



se anotan los resultados; el jugador 
gana 20 veces la cantidad apostada si 
en las cuatro tiradas sale cara, recupe- 
ra la apuesta si sale cara tres veces y 
pierde en cualquiera de las restantes si- 
tuaciones, (La construcción de la tabla 
en sus distintas fases, puede observar- 
se en el cuadro 3). 

Por supuesto, se empezará definiendo 
las condiciones: 

• C1: corresponde a la primera tira- 
da; será SI en el caso de que haya sali- 
do cara, 

• C2: segunda tirada de la moneda. 

• C3: tercera tirada de la moneda, 

• C4: cuarta tirada de la moneda 

Tal como establecen las reglas del 

juego, enunciadas en un párrafo ante- 
rior, son tres los posibles tratamientos 
a aplicar: 

• TI : corresponde a la victoria del ju- 
gador; éste cobrará 20 veces la cantidad 
apostada. 



* T2: reintegro, con lo que el jugador 
recuperará su inversión. 

* T3; derrota del jugador. 

En estas condiciones, la estructura de 
la tabla ofrecerá el aspecto señalado en 
la figura 1 del cuadro 3. 

A continuación se trasladarán a la ta- 
bla todas las posibles combinaciones de 
condiciones para obtener el conjunto de 
situaciones que pueden darse en el jue- 
go (ver figura 2 del cuadro 3). 

Tras ello hay que analizar cada una 
de las situaciones y decidir los corres- 
pondientes tratamientos (ver figura 3 
del cuadro 3). Los tratamientos asocia- 
dos a las diversas situaciones se mar- 
carán con una X en las respectivas in- 
tersecciones de fila (situación) y colum- 
na (tratamiento). 

Así, por ejemplo, la situación 3 (ob- 
tención de «cara» en las tiradas prime- 
ra, tercera y cuarta) da lugar al trata- 



miento T2 (reintegro de la apuesta). 
También resulta obvio que la única si- 
tuación que deriva en el tratamiento TI 
(el jugador gana veinte veces el valor 
apostado) es la primera (cara en las cua- 
tro tiradas). 

Acto seguido dará comienzo la tarea 
de simplificar la tabla. Para ello, hay 
que observar qué pares de situaciones 
conducen a un mismo tratamiento; pa- 
res de situaciones que tan sólo se dife- 
rencian en el resultado de una de las 
condiciones. 

Por ejemplo, situaciones como la sie- 
te y la ocho implican que no es necesa- 
rio evaluar la condición C1, ya que el 
tratamiento de la situación, una vez que 
se han examinado las otras tres condi- 
ciones, es indiferente del valor que 
adopte dicha condición. Esta primera 
fase de simplificación da lugar a la ta- 
bla 4 incluida en el cuadro 3. Pero con- 
viene revisar de nuevo las situaciones 
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CUADRO 1 



1 . Emplazamiento de las 
condiciones en la tabla. 



C1 


s 


N 


S 


N 


C2 


s 


S 


N 


N 



3, Tratamientos que pueden 
realizarse. 





SI 


$2 


$3 


$4 


Ct 


S 


N 


S 


N 


C2 


5 


S 


N 


N 


Tí 

T2 











2. Definición de todas las 
posibles situaciones. 





SI 


S2 


S3 


S4 


C1 


s 


N 


S 


N 


C2 


s 


S 


N 


N 


4. Tratamiento asociado 
a la situación S 1 . 




SI 


$2 


S3 


S4 


C1 


s 


N 


S 


N 


C2 


s 


S 


N 


N 


Tí 


X 



T2 



5. Tratamiento de las 
distintas situaciones. 





SI $2 S3 S4 


C1 


S N S N 


C2 


5 S N N 


TI 


XX X 


T2 


X 



■ Secuencia de formación de la tabla de decisiones relativa 
af ejemplo del «vehículo » descrito en el texto. 



por parejas, con el fin de comprobar si 
alguna de las parejas ya establecidas 
admite una nueva simplificación. 

Es interesa nte hacer notar que las co- 
lumnas correspondientes a las situacio- 
nes 13y14yala 1 5 y 1 6 son simplí- 
ficables, ya que únicamente divergen en 
C2. Aunque no hay que acelerar la sim- 
plificación sin comprobar todos los ex- 
tremos. Por ejemplo, la pareja de situa- 
ciones 7 y 8 no se puede simplificar con 
la 6, puesto que no sólo difieren en C2 H 
sino también en la indiferencia de C1 . 

Finalmente, llegamos a la tabla 5 
(cuadro 3); la tabla de decisión resultan- 
te a partir de la que se obtendrá eí or- 
dinograma asociado. 

El ordínograma representativo del 
proceso debe ir resolviendo decisiones 
para llegar progresivamente a los co- 
rrespondientes tratamientos. Es muy 
importante la elección del orden en el 
que estas decisiones han de ser toma- 
das. Un critero a aplicar es elegir para 
las primeras decisiones condiciones en 
las que no estén implicadas indiferen- 
cias. 

En el caso que nos ocupa, existen dos 
condiciones a las que no afecta ningu- 
na indiferencia; éstas son: C3 y C4. Por 
Jo tanto, cualquiera de ellas es válida 
como primera condición a evaluar. Op- 
temos, por ejemplo, por C4 como prime- 
ra condición a testear (ver ordínograma 

3). 

Como se observa en la correspondien- 
te ilustración, cada una de las ramas del 
ordínograma que parten de C4 ha dado 
lugar a una tabla de decisión específi- 
ca, derivada de la primitiva. Algo seme- 
jante ocurre al desarrollar las ramas 
asociadas a las condiciones C3 (ordino- 
grama 4); sí bien, una de ellas ha de- 
sembocado en uno de los tratamientos 
(T3), debido a que no es necesario eva- 
luar más condiciones. 

Las otras tres ramas deben expandir- 
se a partir de sus tablas respectivas, 
dando lugar a la distribución reflejada 
en el ordínograma 5. 

Y ya sólo queda un paso más: enlazar 
las diversas secciones para construir el 
ordínograma final completo (ordinogra- 
ma 6). Por supuesto, quedaría aún por 
acometer la fase de codificación, en la 
que se redactará el programa en un len- 
guaje informático, atendiendo a la es- 
tructura reflejada en el ordínograma 



El ordínograma resultante presenta la 
sustancial ventaja de permitir la codifi- 
cación del programa correspondiente de 
tal forma que éste presente la mínima 



ocupación posible de memoria. Esta es 
una característica inherente a los pro- 
gramas desarrollados a través de tablas 
de decisión perfectamente depuradas. 
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CUHDRO 2 

1 .Tabla de decisión sin 
eliminar redundancias 



2. T abla resultante una 
vez simplificada. 



I Depuración de ia tabla de 
decisiones 
correspondiente al 
ejemplo del «vehículo» 
detallado en el texto . 





SI 


$2 


S3 


S4 


C1 


S 


N 


S 


N 


C2 


s 


S 


N 


N 


TI 


X 


X 




X 


T2 






X 







$1 y S2 S3 S4 


C! 


S N 


C2 


S N N 


TI 


X X 


T2 


X 



CUADRO 5 



1 . Condiciones y tratamientos 



C1 

C2 

C3 

C4 




Tt 

T2 

13 





2. Definición de las posibles situaciones 





1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12 


13 


14 


15 


Ib 


C1 


S 
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S 


N 


S 


N 


S 


N 


S 


N 


S 


N 


S 


N 


S 


N 


C2 


s 


S 


N 


N 


5 


S 


N 


N 


S 


S 


N 


N 


S 


S 


N 


N 


C3 


s 


5 


S 


S 


N 


N 


N 


N 


S 


S 


5 


S 


N 


N 


IV 


N 


C4 


5 


S 


5 


S 


5 


S 


S 


S 


N 


N 


N 


N 


N 


N 


n 


N 



TI 

12 

T3 



4 , Resultado de la primera simplificación. 
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2 
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5 


6 


7y8 
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10 


Mg12 


I3yi4 


1 5y1 6 


C1 


s 


N 


S 
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C2 
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N 
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5 


IV 
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5 


H 


s 


N 


C3 


5 


5 


5 


S 


IV 


N 


IV 


s 


5 


S 


N 


IV 


C4 


5 


5 


5 


5 


s 


S 


s 


N 


N 


N 


IV 
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T2 
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X 
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X 
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X 


X 
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S . Resultado de la segunda simplificación 
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7y8 
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10 


11ljl2 


1 3 y T 4y1 5y 1 6 
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N 
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H 
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S 


S 


S 


S 


S 


S 
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N 
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N 


N 


TI 
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T2 
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X 
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X 








T3 
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X 


X 




X 


X 
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3. Tratamientos asociados a las diversas situaciones. 
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1 1 


12 


13 


14 
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X 
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■ Secuencia de formación de la tabla de decisiones 
asociada al ejemplo «Lanzamiento de monedas» 
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ara concluir la 
zona de la obra 
dedicada al len- 
guaje BASIC, 
avanzaremos un 
peldaño más en el terreno práctico apli- 
cando los comandos estudiados hasta el 
momento. En esta ocasión, ef programa 
es catalogable como de gestión. 

Para poder construirlo de forma que 
tenga una cierta compatibilidad con 
cualquier tipo de ordenador personal, no 
se van a utilizar comandos «extraños», 
sólo disponibles en muy pocos dialectos 
BASIC. Al efecto, se utilizarán los co- 
mandos más corrientes en los intérpre- 
tes de BASIC de mayor difusión. La 
construcción del programa se comple- 
mentará con explicaciones exhaustivas 
sobre la misión de cada comando y sub- 
rutinb uti fizadas. 







contable 

Un programa de 

en casa gestión, paso a paso 




Un simple ordenador doméstico puede convertirse en el centro de contabilidad 
doméstica con el programa que presentamos en el presente capítulo. 



El contable en casa 



El programa que se va a desarrollar a 
continuación es un ejemplo de un sen- 
cillo banco de datos, destinado a alma- 
cenar información relativa a los peque- 
ños o grandes gastos que se realizan en 
todo entorno familiar, o incluso en el de 
una pequeña empresa. Se trata de simu- 
lar un "'libro mayor", en el que se irán 
anotando cuidadosamente todos los 
gastos y los ingresos que se realícen en 
la familia o en la empresa, consignán- 
dolos en el lugar adecuado {en el «debe» 
o en el «haber»). El programa permite 
obtener información relativa a saldo ac- 
tual en cada momento. Sobre esta base 
es posible añadir cualquier tipo de sub- 
rutína al programa, para calcular o eje- 
cutar la acción o accciones particulares 
que necesite cada usuario, personali- 
zando así su programa. 

Para no hacer pesada la codificación, 
sólo $e va a añadir una utilidad «extra», 
dejando a la atención del lector la adi- 
ción de las nuevas utilidades que desee; 
ello resultará muy sencillo ya que bas- 
tará con incluir nuevas subrutinas que 
se pueden llamar por medio de un 
menú. Este será precisamente el modo 
en que estará organizado el programa 
que se va a codificar a lo largo de los 




Al acabar el tema dispondremos de un eficaz 
contable, encargado de llevar el libro 
de registro familiar 
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Mediante el 
programa 
descrito en 
el texto se 
puede llevar 
un batanee 
exacto de 
ios gastos y 
de tos 
ingresos , 



próximos párrafos. La utilidad «extra» 
que se va á incluir, permitirá llevar en 
paralelo con el saldo real, el saldo de 
nuestra cuenta corriente o cartilla de 
ahorros; como es sabido, los bancos tar- 
dan un tiempo en confirmar las opera- 
ciones que realizamos, y en consecuen- 
cia, hay momentos en los que no se 
sabe con precisión la cantidad disponi- 
ble en la cuenta corriente. En cada 
apunte realizado se podrá indicar si éste 
ha sido o no confirmado por el banco: 
así mismo, también se podrá modificar 
el apunte una vez que el banco nos da 
la confirmación. 

Una vez definido por encima el obje- 
tivo, es hora de poner los pies en tierra 
y comenzar a dar especificaciones prác- 
ticas del programa. 

El principal elemento del programa 
será el fichero en el que se van a alma- 



cenar todos los datos que se introduz- 
can. Utilizar un fichero tipo aleatorio 
ofrece una serie de ventajas que serían 
muy largas de enumerar aquí, pero, a la 
vez, su manejo exige un mayor cuidado, 
hasta el punto de que la codificación de 
un programa que maneja ficheros alea- 
torios puede resultar muy complicada. 
Por esta razón, y para simplificar la la- 
bor, se utilizará un fichero secuencial 
que proporciona las características sufi- 
cientes para nuestro propósito y que, 
además, será posible grabarlo en disco 
flexible o en casete; esto último supone 
una ventaja para aquellos usuarios que 
no dispongan aún de una unidad de dis- 
co. 

El ficheros de datos que necesitamos, 
debe ser fácilmente manejado por ei or- 
denador. La solución más sencilla es 
utilizar una matriz alfanumérica como 



Llevando un 
control diario de 
asientos es 
posible obtener 
en cualquier 
momento el 
estado de 
nuestra 
economía. 



fichero interno, ya que el empleo de sub- 
índices facilita su manipulación. Como 
novedad, no se utilizarán esta vez ma- 
trices multidimensionales, sino que se 
empleará una única matriz alfanuméri- 
ca unidimensional, en la cual se alma- 
cenarán por secciones cada uno de los 
datos introducidos. Para ello hay que di- 
sidí imaginariamente ia nvatúi en ni- 
tores y campos, de tal forma que des- 
pués se pueda localizar fácilmente la in- 
formación. 

Adoptando la terminología contable, 
se llamará asiento a cada sector de la 
matriz; a su vez, cada asiento se dividirá 
en campos de tamaño distinto para cada 
uno de los datos. Así, por ejemplo, una 
posible división de los campos podría 
ser la siguiente: 

— Un campo de 1 carácter para la 
confirmación por el banco. 

— Un campo de 6 caracteres para la 
fecha. 

— Un campo de 20 caracteres para 
la descripción del apunte realizado, 

— Un campo de 1 carácter para el 
signo del cargo (debe/haber). 

— Y, finalmente, un campo de 8 ca- 
racteres para el importe. 

Todos estos campos se han distribui- 
do en su longitud suponiendo que se 
dispone de una pantalla de 24 filas y 40 
columnas. Con ello, cada sector o asien- 
to del fichero tendrá 40 espacios de lon- 
gitud, lo que pemitírá imprimirlo direc- 
tamente en la pantalla. Para definir el 
tamaño de ta matriz que necesitamos 
sólo queda por establecer el número de 
asientos que se quieren utilizar. Si este 
número lo fijamos en 500, ya se puede 
dimensionar la matriz y con ello crear 
las primeras líneas del programa: 

10 DIM DAT 0$(50 1 f 40},M$(40),FECHA(6j r 
COK$(20)JMP$(81,CAñGO$lHVALE|11) 

20 DATÜ$=" "DATO 9(501 *40)- r J r : D ATOSf 2)=DAT 0$ 

30 LET A=1 :LET PA=1:LET SR=0:LET SC=0:LET P= 

40 OPEN#1A0/r 

Las líneas 10, 20 y 30 se encargan de 
dimensionar e ínicializar las diferentes 
matrices variables que serán necesarias 
a lo largo del programa. Así, DATO$() 
consituye el ya mencionado fichero in- 
terno de datos que se ha dimensionado 
con el valor 501*40, para poder incluir 
en su último sector la marca de fin de 
datos. 
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El cometido de las restantes variables 
se detalla a continuación, M$ es una va- 
riable de utilidad general adecuada para 
la obtención de datos del teclado, impre- 
sión de mensajes en pantalla, etc, FE- 
CHAO se utilizará para almacenar tem- 
poralmente la fecha del asiento antes 
de introducirla definitivamente en el fi- 
chero, por si hay algún error y es preci- 
so modificarla. Con el mismo fin se uti- 
lizarán las siguientes matrices: CON$(), 
IMP$0, CARGO$0 y VALE$[}, para los 
campos: concepto, importe, cargo (de- 
be="D' r /haber=' r H") y confirmación del 
banco, respectivamente. 

La línea 20 se encarga de inicial izar 
el fichero de datos con caracteres blan- 
cos (' r "); si no funcionara en su ordena- 
dor puede sustituirla por un bucle 
FOR/NEXT como el siguiente: 




El Libro Mayor informatizado es más manejable y perm ze : 
más rápidas y eficaces que su equivalente impreso. 



20 FOR 1=1 TO 5Q1*40:DAT0$fl)- r r :NBÍT 1 

Las restantes variables numéricas 
que son inicializadas en la línea 30 son 
las siguientes: A para el número de 
asiento (inicialmente=1 ); PA, para el pri- 
mer número de asiento de una página, 
ya que al no ser posible visualizar a la 
vez los 500 asientos del fichero éstos se 
consultarán por páginas; SR para el sal- 
do real; SC para el saldo de la cuenta 
bancaria y P como puntero de la línea 
de la página visualizada, para introducir 
la confirmación por el banco del asien- 
to señalado. 

Por último, la línea 40 se encarga de 
abrir un canal de entrada para el tecla- 
do, por el que se introducirán todos los 
datos. Respecto a esta línea hay que de- 
cir que su formato varía mucho de unas 
máquinas a otras, por lo que será pre- 
ciso acudir al manual BASIC de cada 
máquina. Si en algunos casos no fuera 
posible utilizar esta técnica, se podra re- 
currir, haciendo las modificaciones per- 
tinentes, al sufrido INPUT, o incluso al 
comando lf\IKEY$o equivalentes. 

Con estas líneas ya está incializado el 
programa, por lo que se pueden comen- 
zar a codificar rutinas que cumplan las 
diferentes tareas a realizar. A continua- 
ción y tras una simple pantalla de pre- 
sentación con el nombre del programa 
se puede ya empezar a construir el 
menú principal que dará entrada a las 
diferentes subrutinas que componen el 
programa. 



El menú de opciones 

El cartel de entrada visualizará sim- 
plemente el nombre del programa, pre- 
vio borrado de la pantalla. Tras un pe- 
queño intervalo de retardo, ésta presen- 
tará directamente el menú príncípal. 
Naturalmente, el lector puede incluir 
aquí cualquier cosa que le dice su espí- 
ritu artístico; un simple cartel de entra- 
da podría ser el siguiente: 



eo clsipost ov - ■ : familiares" 

70 F0RWT0 5X-«T 

El comando POSfHON seguido del 
PRIM : _“i“ sus: t^kfo por un PRINT 
AT u otro comando equivalente. Para 
modificar el menú principa!, será nece- 
sario üu i üniMi ar primero qué acciones 
= - : = i r : - ■ : " : ■ csrtir de él. Así, por 
t — : : ser las siguien- 

tes 



Por medio de una opción 
incorporada al programa $e 
puede conocer con celeridad , 
| exactitud el estado actual de 
nuestra cuenta bancana. 
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Consulta dei archivo, para ver 
asientos introducidos con anteriori- 
dad. 

2. Actualización o entrada de nuevos 
datos. 

3 Cargar del disco o casete un fichero 
de datos. 

4 Guardar el fichero en disco o case- 
te. 

Estas son las acciones básicas nece- 
sarias y suficientes para el objetivo que 
nos hemos marcado; si bien, el lector 
podría incluir aquí sus propias opciones 
con gran sencillez. 

La rutina que imprime el menú en la 
rantalla es la que sigue: 

30 CLS:P0SIT10N 16 r 0:PRINT "OPCIONES” 
no POSITION 10 r 6:PRINT ”1 ACTUALIZAR FICHERO" 

*10 POSITION 1Q,8:PRINT Jr 2;C0N$ULTAR FICHERO” 

‘ 30 P0SITI0N 10 r tO:PRINT "3: CARGAR FICHERO" 
POSITION 10 r 12:PRINT "AGUARDAR FICHERO" 

Sj ejecución dará lugar a la siguiente 
pantalla: 



OPCIONES 

1 ACTUALIZAR FICHERO 
2:C0NSULTAR FICHERO 
3;CARGAR FICHERO 
AGUARDAR FICHERO 

I 



Ahora sólo queda por realizar la zona 
adecuada para captar la opción elegida 
por el usuario. Esto puede hacerse me- 
diante el comando GET#1,M que espe- 
ra a que se pulse una tecla y guarda su 
código en la variable M r a través del ca- 
nal de entrada #1 previamente abierto 
para el teclado. De esta forma no es ne- 
cesario pulsar la teda RETURN como 
ocurriría con un ÍNPUT. Después habrá 
que examinar sí la opción elegida es vá- 
lida y, si es así, enviar el flujo del pro- 
grama hacia ia subrutina correspon- 
diente, lo que puede lograrse medíante 
el comando ON M GOSUB.,. 

El listado de esta zona es la siguiente: 

‘50 GET fll ,M:M$=CHR$[M) 

*6G IF MSCI " 0R THEN 1 50 

‘70 M=VAL(M$):0N M GOSUB 540,190,1380,1310 

'80 GOTO 90 




Si se añade aí programa la 
posibilidad de imprimir ios resultados 
puede confeccionarse un ejemplar de 
| libro mayor que preserve nuestras 
i cuentas de un posible fallo de la 
I unidad de almacenamiento. 

Al recurrir a esta técnica es ineludi- 
ble utilizar el comando CHR$, ya que el 
código almacenado en M debe transfor- 
marse en su carácter correspondiente 
para poder examinarlo. Así mismo, me- 
diante VAL se transforma ese carácter 
en su equivalente numérico, necesario 
para el correcto funcionamiento de ON 
M GOSUB. En los números de línea a 
los que bifurca este último comando 




La cantidad en metálico de que se 
dispone en casa $e pude obtener 
como la diferencia entre el saldo total 
menos el de la cuenta bancaria. 



mencionado se situarán las correspon- 
dientes subrutinas, que no existen toda- 
vía, por lo que si se trata de ejecutar el 
programa se obtendrá un mensaje de 
error de línea no existente. 

Como el orden de los factores no al- 
tera el producto, empezaremos ya a co- 
dificar la subrutina a la que se dirigirá 
el programa al pulsar el usuario la te- 
cla ”2"; ésta corresponde a la zona de 
consulta del fichero. Lo primero que hay 
que hacer es un borrado de la pantalla 
con CLS para eliminar el menú de op- 
ciones y, a continuación, formatear la 
pantalla con una cabecera que incluya 
los diferentes campos que componen 
cada asiento, para representar estos 
posteriormente. También hay que repre- 
sentar otras informaciones adicionales, 
como el número de asiento que señala 
el cursor, la página, el saldo... 

1 90 CLS:PRINT "FECHA CONCEPTO CARGO IMPORTE" 
200 P0 SITIO N 2,2Q:PRINT "PAGINA..." 

210 POSITION 17 r 20;PRINT 1NT(PA/19]+1 
220 POSITION 22, 20:PRINT "ASIENTO." 

230 POSITION 34 r 20:PRINT PA+P-1 
240 POSITION 2,21 PRINT "SALTO TOTAL,.": POSITION 
17,21 PRINT SR 

250 POSITION 2, 2 2; PRINT ' SALDO CUENTA... : POSITION 
17,22;PRINT SC 

260 POSITION 2,23:PRINT "DIFERENCIA rr ;:POSITfON 
17 r 23:PRINT SR-SC; 

Con el comando POSITION {o con el 
PRINT AT en su defecto) se sitúan en su 
lugar correspondiente los diferentes 
mensajes; se obtendrá la siguiente pan- 
talla: 

FECHA CONCEPTO CARGO IMPORTE 

PAGINA 1 ASIENTO 1 

SALDO TOTAL 0 

SALDO CUENTA 0 

DIFERENCIA 0 

Al cambiar la página de la forma que 
se verá más adelante, cada mensaje bo- 
rra el valor antiguo imprime el nuevo 
valor. Sólo queda ya imprimir los secto- 
res del fichero que quepan en la pági- 
na; debido a los mensajes anteriores, 
sólo podrán visualizarse simultánea- 
mente 1 8 asientos: 

270 POSITION 0,1 

280 FOR (=PA T0 PA+17 

290 PRINT MID$pAT0$l*40-39, 1*40-1) 
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300 NEXT I 

310 POSITION 7,P:PRINT ,J >" 

La línea 310 imprime el puntero de 
modificación por confirmación del ban- 
co en el primer asiento de esa página; 
éste podrá ser desplazado por medio de 
las siguientes líneas del programa: 

320 GEI #1,M:M$=CHR$[Mj 

330 IF IUI045 AND M061 AND M043 AND M042 
* AND M027THEN 320 

340 GOTO (M=45) *350*|M=61 ) *330+fM=42) *410h[M=27} 
*53G+(M=43) *470 
350 IF PÁ“1 THEN 320 
360 PA=PA-18:P=1:G0TG 200 
380 IFPA+18>A THEN 320 
390 P A=PA+ T S : P=1 : GOTO 200 
410 POSITION 7,P;PRINT *':P=P+1:IF P>18 THEN M 
430 IF PA+P-1 >-A THEN P=1 
440 POSITION 7.P PRINT > r :GOT0 200 
470 VA R =( P A + P- 1 1*40-40:1 F DAT0$ (VAR+1K' THEN 
320 

480 POSITION O f P;PRINT 
490 DAT0|VAR^1 )f" " 

500 IF DAT0$(VAR*3QK'D" THEN M$[1|="-":Má 
[2)=STR$VAL(MID$(DATÜ$ J VAR+32,VAR+39))):SC= 
SC+ VAL(M$G0TQ 200 
510 IF DAT 0S[ VAR+30¡= hH H H r THEN 1)=V: 

M$(2)=STR$[VAL(MID$[DATOaVAR+32 r VAR+39)»: 

S C=S C+ VA L(M 
520 GOTO 200 
530 RETURN 

Aunque el funcionamiento de esta 
zona del programa puede parecer muy 
complicada a primera vista, no es así. 
Primero (líneas 320 a 340) se espera a 
que se pulse una tecla. El código obte 
nido variará mucho de unas máquinas a 
otras, por lo que es preciso consultar 
cada manual específico. Una posible co- 
rrespondencia de códigos con las teclas 
pulsadas, puede ser la siguiente: 

45: cursor hacia arriba 
61: cursor hacia abajo 
43: cursor a la izquierda 
42: cursor a la derecha 
27: tecla ESCAPE 

Y esta es precisamente la utilizada en 
este programa. Así, al pulsar cada tecla 
se bifurcará con la sentencia de la línea 
340 hacia la zona correspondiente, se- 
gún la acción que se desee realizar. Es- 
tas acciones son las siguientes: con la 
tecla de movimiento del cursor hacía 
abajo se pasa a la página siguiente del 
fichero; con la del cursor hacia arriba, a 



la página anterior; con la del cursor a la 
derecha se desplaza hacia abajo el pun- 
tero de modificación (representado por 
el signo: de forma que al llegar el 

último asiento de esa página vuelve al 
primero de nuevo; y con la teda del cur- 
sor hacia la izquierda se valida un asien- 
to que no hubiera sido aún confirmado 
por el banco. 

Al introducir los datos, los asientos no 
confirmados por el banco se identifica- 
rán por medio de un carácter asterisco 
(*) en su primer campo. De esta forma, 
en las líneas 470 a la 510, se busca si 
existe este asterisco en el asiento seña- 
lado; si es así se procede a su borrado 
y a calcular el nuevo saldo de la cuenta 
contabilizando ya el importe de ese 
asiento. Tras ello se vuelve a la línea 
200 que imprime de nuevo estos valo- 
res actualizados, Pero, ¿cómo se sale de 
esta subrutina? Sencillamente, median- 
te la pulsación de la tecla de ESCAPE, 
volviendo de inmediato el control af 
menú de opciones. 



Entrada de datos 

La siguiente subrutina que se va a co- 
dificar es la de entrada de datos {ver lis- 



ACTUALIZAR FICHERO 



1 

01 02 85 
SALDO INICIAL 
30 000 
H 
S 

| DATOS CORRECTOS (S/N)? 

■ La entrada de datos se realiza con el 
formato esbozado en este gráfico. 



lado adjunto). Esta no ofrece ninguna 
particularidad especial, por lo que sólo 
se hará un breve comentario de su fun- 
cionamiento. La entrada de datos se 
hace a través def teclado y de acuerdo 
al procedimiento explicado anterior- 
mente. Para ello se imprimen unos ren- 
glones que indican el concepto a intro- 



ASIENTO 

FECHA (DDMMAA) 
CONCEPTO 
IMPORTE 
CARGO tD/H) 
CONFIRMACION 




I Págnia de asientos que se 
obtiene al consultar el fichero 
de datos del programa. 
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1290 fF VALE$[t)=''S" THEN SC=SC+M 
1300 GOTO 540 



INGRESOS 



105.528 



GASTOS 



BALANCE 



= - 105.528 



= 0 



I 



Gracias a un control 
exacto de las operaciones 
financieras no se hará 
realidad el dicho popular: 
«dehe haber, pero 
nunca hay». 




Al recibir la 
confirmación 
de una 
operación 
por parte del 
banco, se 
puede 
confirmar el 
asiento, con 
lo que se 
actualiza el 
saldo de la 
cuenta 
bancada. 



ducir en cada momento, lo cual se indi- 
ca mediante el símbolo: Así, para 

introducir la fecha, por ejemplo, se re- 
curre a un bucle que se repite 6 veces, 
una para cada dígito. Los seis dígitos ha- 
brán de introducirse por tanto en la for- 
ma indicada: primero el día, seguido del 
mes y de las dos últimas cifras del año. 
Por ejemplo, el día 1 de abril de 1986, 
se introducirá con tas siguientes cifras: 
010486, no siendo necesario pulsar la 
teda RETURN al final, pues automática- 
mente se pasa al campo siguiente. La 
longitud de los campos queda así limi- 
tada y al llegar a su final se pasa al si- 
guiente campo. 

Una vez introducidos todos los cam- 
pos se pregunta si los datos son correo-, 
tos, para en caso de detectar algún error 
poder corregirlo empezando de nuevo 
con la introducción de los datos. Estos 
datos se guardan temporalmente en las 



matrices respectivas, como se explicó al 
principio. 

SÍ se dan por correctos, los datos se- 
rán transferidos al fichero formado por 
la matriz DATO$; esta función la realiza 
la siguiente zona del programa: 

1180 VAR=A # 40-40:A=A+1 :FQR (=1 10 40:DA 
T0KVAR+IK P ":NEXT I 

1200 IFVALE$(1K'r THEN DATOS (VAR+ip 1 *" 

1210 F0R 1=1 T0 6 : D AT0S( VA R+I+ 1 j=STA$ F EC H A( l)):N EXT 

I 

1220 MIDÍDATO$lVAR+9 J VAR+28)=COM 
1 230 LO N =LE N(l M PS):M I D $¡ DAT 0$ VA R+40- LO N r VA R+39) 
-IMP$ 

1250 IF CARCOMI KTT THEN DAT0$[VAR+30)=CARGOS 

MW- 

1260 IF CARGü(|1)= if r THEN DAT0S(VAR 30)=CAR- 
G0$:M$(1K* ir 

1270 DAT0$((A-1 )*40+13j="FIN DE DAT0S':DA 
TO$(5Q1*40j= JrJr 

1 280 MID|[Mtl2+L0N)=IIWIPttM=VAL (MS):SR=+M 



Una vez introducidos ios datos en la 
matriz DATO$ r se empezarán a pedir da- 
tos para un nuevo asiento; éste es el 
momento, si se desea, de abandonar ¡a 
subrutina para volver al menú de opcio- 
nes. Al efecto se pulsará la tecla ESCA- 
PE, cuya misión se detecta en la línea 
690 en la que se ha indicado entre co- 
millas el carácter "E' r ; este correspon- 
derá con el carácter entregado por esa 
tecla en cada caso concreto, como ya se 
ha mencionado. Dicho carácter puede 
ser fácilmente sustituido para que aban- 
done esta subrutina al pulsar cualquier 
otra tecla, como por ejemplo la "A”, sin 
más que modificar la referida línea. 



Un archivo permanente 



A estas alturas tan sólo restan por co- 
dificar las subrutinas de carga y graba- 
ción del fichero de asiento. Estas fun- 
ciones se pueden realizar abriendo sen- 
dos canales de entrada o de salida, se- 
gún se trate de almacenamiento o de 
carga, respectivamente. 

Para ello se utilizará el comando 
OPEN (nos remitimos a lo expuesto an- 
teriormente al abrir e! canal de entrada 
para el teclado). Las subrutinas de car- 
ga y almacenamiento sólo se diferencia- 
rán en que en una se utilizará el coman- 
do PRINT# para guardar el fichero en el 
disco a casete, y en la otra se utilizará 
el comando INPUT# para cargarlo en la 
memoria del ordenador. Ambos coman- 
dos deben trabajar con variables, por lo 
que se grabarán o se cargarán cada uno 
de los asientos por separado; ello se 
hará empleando la matriz M$ de utili- 
dad general. Previamente, y para saber 
el número de asientos a cargar o gra- 
bar, se cargará o grabará la variable A 
que lleva la cuenta del número de 
asientos introducidos. Asimismo, se de- 
ben grabar los valores contenidos en SR 
y SC, correspondientes a los saldos que 
arrojan los asientos existentes. 

Las subrutínas de carga y almacena- 
miento son las siguientes: 

1310 CLSPRINT " CARGAR FICHERO” 
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540 CLS: PRINT " ACTUALIZAR FICHERO" 
558 IFA+1<501 THEN 590 
560 POSITION 13,12 :PRINT "FICHERO LLENO";: 
FOR 1=1 TO 1000: NEXT I: RETURN 

590 POSITION 1,5:PRINT " ASIENTO.. ": 

POSITION 18,5:PRINT A 
600 POSITION 1,7:PRINT " FECHA 
(DOMMAA)." 

610 POSITION 1,9: PRINT " CONCEPTO " 

620 POSITION 1,11 :PRINT " IMPORTE " 

630 POSITION 1,13: PRINT " CARGO {D/H)...." 
640 POSITION 1,1 5: PRINT " CONFIRMA- 
CION..." 

650 POSITION 17,7: PRINT "> ":POSI- 
TION 18,7 
660 FOR 1 = 1 TO 
670 G ET # 1, M : M$= CHRS(M) 

690 IF M$="E" AND 1=1 THEN RETURN 
700 IF MS="" THEN 670 
710 IF M$<"0” OR M$>"9” THEN 670 
720 PRINT MS; : FECH A(l )= VAL(M$}: NEXT I 
770 POSITION 17,7: PRINT " ":POSITION 17,9: 
PRINT ">": POSITION 18,9 
790 CON$="":FOR 1=1 TO 20 
800 GET # 1 ,M :MS= CHR"(M) 

820 IF MS="" THEN 800 
830 IF M=155 THEN 870 



840 PRINT MS;:CON$(l)=MS.NEXT I 
870 POSITION 17,9: PRINT " "POSITION 17, 
11:PRINT ">": POSITION 18,11 
880 IMPS="":FOR 1=1 TO 8 
900 GET *1,M:M$=CHR${M) 

920 IF M=J55 THEN l=9:GOTO 960 
930 IF M$<"0" OR M$>"9" THEN 900 
940 PRINT M$;:IMPSOI=M$ 

960 NEXT I 

980 IF VAL(IMP$)=0 THEN 870 
990 POSITION 17,1 ItPRINT " :POSITION 17, 
13: PRNT POSITION 18,13 
1000 GET # 1,M:M$=CHR$(M) 

1020 IF M$<>“D" AND MSo"H"THEN 1000 
1030 PRINT MS;:CARGOS=M$ 

1050 POSITION 17,13: PRINT " POSITION 17, 
15: PRINT ">": POSITION 18,15 
1060 GET-1,M:MS=CHRS(M) 

1080 IF M$<>"S” AND MSo"N"THEN 1060 
1080 PRINT M$;:VALE$=M$ 

1110 POSITION 17,1 5; PRINT " ":POSITION 8, 
20: PRINT "DATOS CORRECTOS (S/TM) ?" 
1120 GET *I,M:M$=CHR$(M) 

1 140 IF M$o"S" AND M$o"N" THEN 1120 
1150 POSITION 0,20: PRINT " 

1160 IF MS="S" THEN 1180 
1170 GOTO 650 



PROGRAMA 1: Subrutina de entrada de datos. 

1410 FOR 1-0 TO A:INPUT #3;M$:MID4{DATO$r 0+1 



1320 GOSUB 1440:OPEN#2,8,0,M$ 

1330 PRINT #2;A:PRINT #2,SR:PRINT #2:SC 
1340 FOR 1=0 TO A:M$=MID$ {DAT0$,I*40+1 ,1*40+40) 
1360 PRINT #2;WI$NEXT I: CLOSE #2: RETURN 
1380 CLS:PRINT" CARGAR FICHERO" 

1390 GOSUB 1440:0PEN #3,4,0, MS 
1400 INPUT #3;A:INPUT #3;SR:INPUT #3;SC 



P +40pM$ 

1430 NEXT hCLOSE #3:RETURN 
1440 POSITION 2,12:PRINT "DISPOSITIVO: FICHERO ";:IN 
PUT M$RETURN 

La subrutina de la línea 1440 es uti- 



lizada por las dos anteriores para obte- 
ner el nombre del fichero sobre el que 
se quieren grabar o cargar los datos; 
probablemente, el usuario tendrá que 
introducir modificaciones en ella para 
adaptarla al formato del comando OPEN 
de que disponga su intérprete BASIC. 
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10 DIM DATOSI501 *40),M$(40),FECHA(6), 
CONSI20), I M PS'3), CARG OST ), VALES'I ) 

20 DATOS= ":DATOS(501 *40)=“ ":DAT0$ 
(2)=OATO$ 

30 LEÍ A=1:LET PA=1:LET SR=0:LET 
SC=0:LET P=1 
40 OPEN # 1,4,Q,"K" 

60 CLSiPOSITION 1 1,12 :PRI NT "GASTOS 
FAMILIARES" 

70 FOR 1=1 TO 500.NEXT I 
90 CLS:P0SITION 16,0: PRINT "OPCIONES" 
110 POS1TION 10,6: PRINT "1:ACTUALIZAR 
FICHERO" 

120 POSITION 10,8:PRINT "2:CONSULTAR 
FICHERO" 

130 POSITION 10,10:PRINT "3: CARGAR FI- 
CHERO" 

140 POSITION 1 0,12 : PRINT “4: GUARDAR FI- 
CHERO" 

150 GET *1,M:MS=CHRS(M) 

160 IF M$<"1” OR M$> 4" THEN 150 
170 M=VAL(M$):ON M GOSUB 540,190,1380, 
1310 

180 GOTO 90 

190 CLS: PRINT " FECHA CONCEPTO 
CARGO IMPORTE” 

200 POSITION 2,20: PRINT "PAGINA ” 

210 POSITION 17,20: PRINT INT(PA/19)+1 
220 POSITION 22,20: PRINT "ASIENTO ... ” 
230 POSITION 34,20: PRINT PA+P-1 
240 POSITION 2,21: PRINT "SALDO TOTAL... 

POSITION 17,21 :PRINTSR 
250 POSITION 2,22: PRINT "SALDO CUENTA.. 

".POSITION 17,22: PRINT SC 
260 POSITION 2,23: PRINT "DIFERENCIA.... 

;: POSITION 1 7,23: PRINT SR-SC; 

270 POSITION 0,1 

280 FOR l=PATO PA+17 

290 PRINT MIDS(DATO$,l *40-39,1 *40— 1 1 

300 NEXT I 

310 POSITION 7,P:PRINT ">” 

320 GET # 1,M:MS=CHRS(M) 

330 IF M<>45 AND M<>61 ANO M<>46 
AND M<>42 AND M<>27 THEN 320 
340 GOTO ( M = 45) *350+ (M =5 1 ) *380+ (M = 
42) *41 0+ ( M =27) *530+ (M =49) *470 
350 IF PA=1 THEN 320 
360 PA=PA-18:P=1:GOTO 200 
380 IF PA+18>A THEN 320 
390 PA=PA+18:P=1:GOTO 200 
410 POSITION 7,P: PRINT " ":P=P+1:IF P>18 
THEN P=1 



PROGRAMA 2: Programa contable. 



430 IF PA+P— 1>=A THEN P=1 
440 POSITION 7,P: PRINT ">":G0T0 200 
470 VAR=(PA+P-1) *40-40: IF 
DAT0$(VAR+1)=" 'THEN 320 
480 POSITION 0,P:PRINT" 

490 DATO$(VAR+1)=" " 

500 IF DAT0$(VAR+30)="D" THEN 
MS(1 )="-": M$(2)=STR$(VAL(MIDS 
(DATOS, VAR+32,VAR+39))):SC=SC+VAL 
IMS): GOTO 200 

510 IF DATOS( VAR+30) = "H " THENM$(1)= 
" + " : M$|2) = STRSf VAL(M I D$(D ATOS, VAR 
+ 32,VAR + 33))) : S C= S C + VALI MS) 

520 GOTO 200 
530 RETUR N 

540 CLS: PRINT " ACTUALIZAR FICHERO" 
550 IF A+K501 THEN 590 
560 POSITION 13,12:PRINT "FICHERO LLE- 
NO";: FOR 1=1 TO 1000: NEXT I: RETUR N 

590 POSITION 1,5: PRINT " ASIENTO ": 

POSITION 18,5: PRINT A 
600 POSITION 1,7: PRINT " FECHA (DDMMAA." 

610 POSITION 1,9:PRINT " CONCEPTO " 

620 POSITION 1,11: PRINT " IMPORTE " 

630 POSITION 1,13: PRINT" CARGO (D/H)...." 
640 POSITION 1,15:PRINT" CONFIRMACION... 
650 POSITION 17,7: PRINT "> 

": POSITION 18,7 
660 FOR 1=1 TO 6 
670 GET # 1,M:MS=CHR$(M) 

690 IF MS="E" AND 1=1 THEN RETURN 
700 IF M$=“" THEN 670 
710 IF M$<"0” OR MS>"9" THEN 670 
720 PRINT MS; : FECHA( l)= VAL( MS) : N EXT I 
770 POSITION 17,7: PRINT " : POSITION 17,9: 
PRINT ">":POSITION 18,9 
790 CONS="":FOR 1=1 TO 20 
800 GET # 1,M:MS=CHRS(M) 

820 IF MS="" THEN 800 
830 IF M=155 THEN 870 
840 PRINT MS;:CON$(l)=M$:NEXT I 
870 POSITION 17,9: PRINT " ":POSITION 
1 7,-11: PRINT "> ":POSITION 18,11 

880 IMPS=" ":FOR 1=1 TO 8 
900 GET*1.M:M$=CHR$(M) 

920 IF M=155 THEN 1=9: GOTO 960 
930 IF M$<"0" OR MS> "9" THEN 900 
940 PRINT MS;:IMP$(I)=MS 
960 NEXT I 

980 IF VAL(IMPS)=0 THEN 870 
990 POSITION 17,11: PRINT " ":POSITION 
17,18: PRINT "> ": POSITION 18,13 



1000 GET # 1,M:MS=CHRS(M) 

1020 IFMS<>"D" AND MS<> "H"THE 1000 
1030 PRINT M$;:CARGOS=MS 
1050 POSITION 17.13: PRINT " ":POSITION 
17,15:PRINT "> :POSITION 13,15 
1060 GET*1,M:M$=CHRS(M> 

1080 IF MSo"S“ AND MS<> "N" THEN 1060 
1090 PRINT MS;:VALE$=MS 
1110 POSITION 17,1 5: PRINT " ":POSITION 8,20: 
PRINT "DATOS CORRECTOS (S/N)?” 
1120 GET # 1,M:MS=CHRS(M) 

1 140 IF MSo"S" AND MSo"N" THEN 1120 
1150 POSITION 0,20: PRINT " 

1160 IF MS="S" THEN 1180 
1170 GOTO 650 

1180 VAR = A *40— 40 : A= A + 1 : FOR 1 = 1 TO 40: 
DATOS(VAR+l)=" :NEXT I 
1200 IF VALES! 1)="N" THEN OATOS 
(VAR+- 1 )="*" 

1210 FOR 1=1 TO 8: DATO$(VAR+l+1)=STR$ 
( FECHA! I)): NEXT I 

1220 M I DS(D ATOS, VAR+ 9, VAR + 28) = CO NS 
1230 LON = LEN (IMPS):MID$(DATO$, VAR+ 
40— LON,VAR+39)=IMP$ 

1250 IF CARG0$(1)="D" THEN DAT0S(VAR+ 
30)= CAR G OS : MS(1 ) = "— " 

1260 IF CARGOS! 1)="H" THEN DATO$(VAR+ 
30)=CARGO$:MS(1)="+" 

1270 DATOS! (A- 1 ) *40+ 13)= "FIN DE DATOS": 
DATOS! 501 *40)=" ” 

1280 M I D$(MS,2,2+ LON) = IM P$: M = VAL(MS): 
SR=SR+M 

1290 IF VALES!1)="S" THEN SC=SC+M 
1300 GOTO 540 

1310 CLS: PRINT " GUARDAR FICHERO" 

1320 GOSUB 1440: OPEN *2,8,0,MS 
1330 PRINT*2;A:PRINT *2;SR:PRINT *2;SC 
1340 FOR 1=0 TO A:M$=MIDS(DATOS,I*40+1, 
1*40+40) 

1360 PRINT *2;MS: NEXT LCLOSE *2: RETURN 
1880 CLS: PRINT " CARGAR FICHERO" 
1390 GOSUB 1440: OPEN *3,4,0, MS 
1400 INPUT*3;A:INPUT # 3;SR:INPUT # 3;SC 
1410 FOR 1=0 TO A:INPUT *3;MS:MIDS- 
( DATOS,! *40+1,1 *40+40)= MS 
1430 NEXT LCLOSE *3:RETURN 
1440 POSITION 2,12: PRINT "DISPOSITIVO: FI- 
CHERO ";:INPUT MS: RETURN 
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